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REM \ 


Speeieoepanen 
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AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
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1.0 INTRODUCTION 
1.1 ABSTRACT 


THE RMOS/3/2 SUBSYSTEM FUNCTIONAL TEST IS A STAND ALONE PROGRAM 
WHICH USES FUNCTIONAL MEANS TO VERIFY THE OPERABILITY OF THE 
RMOS/3/2 DISK SUBSYSTEM. IN PARTICULAR, THE PROGRAM SERVES THE 
FOLLOWING PURPOSES: 


TO EXPLICITLY ESTABLISH CONFIDENCE IN THE BASIC OPERATIONS OF THE 
coinations INCLUDING MECHANICAL POSITIONING AND DATA TRANSFER 


TO IMPLICITLY ESTABLISH CONFIDENCE IN THE DRIVE/ADAPTER 
ELECTRICAL INTERFACE; 


TO VERIFY THE FUNCTIONALITY OF THE RMOS/3/2 SUBSYSTEM, INCLUDING 
THE MASSBUS CONTROLLER, MASSBUS ADAPTER AND THE DISK DRIVE. 


THE TEST IS COMPRISED OF 3 PARTS, WHICH WOULD NORMALLY BE RUN IN 
SEQUENCE, STARTING WITH PART 1. BRIEFLY, PART 1 1ESTS HOUSEKEEPING 
AND MECHANICAL POSITIONING OPERATIONS; PART 2 TESTS WRITE, READ AND 
WRITE CHECK OPERATIONS USING HEADER AND DATA; PART 3 TESTS WRITE, 
READ AND WRITE CHECK OPERATIONS USING DATA, 


1.2 UNIT UNDER TEST 


THE UNIT UNDER TEST (UUT) IS THE RMO5/3/2 DISK SUBSYSTEM WHICH 
CONSISTS OF THE RHXX MASSBUS CONTROLLER, THE RMO05/3/2 MASSBUS ADAPTER, 
AND THE STORAGE MODULE DISK DRIVE. NOTE THAT A DISK PACK IS REQUIRED 
— Prsialbetey AND IS CONSIDERED AN INTEGRAL OF THE STORAGE MODULE DISK 

ve. 


2.0 OPERATING REQUIREMENTS 
2.1 HARDWARE REQUIREMENTS 


THE FOLLOWING MINIMUM HARDWARE CONFIGURATION, ASSUMED 10 BE 
OPERATIONAL, 1S REQUIRED TO LOAD AND EXECUTE THE RMOS/3/2 SUBSYSTEM 
FUNCTIONAL TEST: 


PDP-11 PROCESSOR 

8K MEMORY 

KWill-t OR KWli-P CLOCK 
Seahinee LOADING DEVICE 
TERMINA 


RH11 OR RH70 CONTROLLER 
1 10 8 DISK DRIVES (ANY COMBINATION OF RMOS'S, RMO3'S OR RMO2'S) 


SEQ 0003 
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SEQ 0004 
es 2.2 MEDIA REQUIREMENTS 
60 EACH UNIT BEING TESTED MUST BE LOADED WITH A SCRATCH DISK PACK 
61 BEFORE TESTING BEGINS ON THAT UNIT. THE DISK MAY BE FORMATTED OR 
62 UNFORMATTED. 
63 
64 
65 
oe 2.35 PREREQUISITE DIAGNOSTIC PROGRAMS 
RMO5/3/2 DISKLESS DIAGNOSTIC, PART 1 & 2 
70 
71 
ie 3.0 OPERATING PROCEDURE 
. 3.1 LOADING 
a THE PROGRAM MAY BE LOADED BY EITHER OF THE FOLLOWING MEDIA: 
78 -PAPER TAPE, USING THE STANDARD PAPER TAPE LOADING PROCEDURE. 
a -XXDP MEDIA, USING THE APPROPRIATE LOADING DEVICE. 
81 
82 
or 3.2 SWITCH OPTIONS 
85 THE FOLLOWING SWITCH OPTIONS ARE PROVIDED TO ENHANCE THE UTILITY 
M4 OF THE PROGRAM. 
88 Sw15 HALT ON ERROR 
89 SwW14 LOOP ON TEST (CURRENTLY BEING EXECUTED) 
90 Sw13 INHIBIT ERROR TYPEOUTS 
91 SW12 UNUSED 
92 Swi] INHIBIT TEST ITERATIONS 
93 Sw10 BELL ON ERROR 
94 SW09 LOOP ON ERROR 
44 Sw08 LOOP ON TEST IN SW07-00 
97 THE LOW ORDER 8 SWITCHES (SWO7-SWOO0), ARE USED IN CONJUNCTION WITH 
98 SWO8 TO SPECIFY THE OCTAL NUMBER OF THE TEST WHICH THE PROGRAM WILL 
99 LOOP ON. 
100 
10° 
102 
HS 3.3 STARTING 
105 THE PROGRAM STARTS AT LOCATION 200, WHICH PROVIDES WORST CASE 
106 TEST CONDITIONS IF RUNNING IN AN AUTOMATIC ENVIRONMENT. IF RUNNING IN 
107 A STAND-ALONE ENVIRONMENT, THE PROGRAM USES CONSOLE DIALOGUE TO ALLOW 
Ys THE OPERATOR TO CONTROL TEST CONDITIONS. 
110 
111 
it 3.4 HALTING 
114 THE PROGRAM CAN BE HALTED BY TYPING CONTROL C FROM THE CONSOLE. 
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SEQ 0005 


3.5 RESTARTING 
THE PROGRAM CAN BE RESTARTED AT ADDRESS 200. 


4.0 OPERATOR INTERFACE 
4.1 PROGRAM ID 


THE PROGRAM TYPES ITS TITLE AND MAINDEC NUMBER THE FIRST TIME IT 
1S STARTED AFTER BEING LOADED. PROGRAM IDENTIFICATION DOES NOT OCCUR 
IF THE PROGRAM IS RESTARTED. 


4.2 CONSOLE DIALOGUE 


WHEN THE PROGRAM IS RUNNING IN STAND ALONE MODE, IT ENTERS A 
CONSOLE DIALOGUE SEQNENCE AFTER TYPING THE PROGRAM 1.D.. 


THE FIRST QUESTION TYPED OUT IS: ‘‘TYPE HELP TEXT (Y/N) ?°'. 
IF THE OPERATOR RESPONDS WITH A ‘'Y'', THE PROGRAM WILL TYPE A BRIEF 
HELP MESSAGE WHICH WILL LIST SWITCH OPTIONS, ETC. 


NOTE: THE FIRST QUESTION IS ONLY ASKED ON THE INITIAL PROGRAM 
START AND NOT ON SUBSEQUENT START-UP'S. 


THE SECOND QUESTION TYPED iS, ‘‘CHANGE ADDRESSES (Y/N) ?°'. IF THE 
UNIBUS ADDRESS OF THE RH/RM IS NON STANDARD, THE OPERATOR SHOULD 
dare WITH A ‘'y'', THEN ANSWER SUBSEQUENT QUESTIONS TO SPECIFY 

THE UNIBUS ADDRESS. VECTOR ADDRESS AND INTERRUPT PRIORITY. IF THE 
OPERATOR RESPONSE 1$ A "N'', THE PROGRAM SKIPS TO THE THIRD QUESTION. 


THE THIRD QUESTION TYPED IS, ‘TYPE ‘‘A'' TO TEST ALL DRIVES, OR 
TYPE DRIVE NUMBER(S) AND TERMINATE INPUT WITH A CARRIAGE RETURN. * 
THEN, 'DRIVE(S):* IS TYPED AND WAITS FOR THE OPERATOR TO TYPE AN ‘‘A'’, 
TO TEST ALL POSSIBLE DRIVES OR THE NUMBER(S) OF THE DRIVE(S) HE WANTS 
TESTED AND TERMINATE HIS INPUT WITH A ‘'CARRIAGE RETURN’. 


NOTE: THE LONG VERSION OF THE THIRD QUESTION IS ONLY TYPED ON 
THE INITIAL PROGRAM START. ON ALL SUBSEQUENT STARTS, ONLY 
THE *DRIVE(S):' PROMPT IS TYPED. 


IF THE eco IS, RESTARTED, THE FIRST QUESTION TYPED 1S, ‘USE 
SAME DEVICES (Y/N IF THE OPERATOR TYPES ‘'Y'', THE TEST IS 
RESTARTED USING THE SAME DEVICES AS THE LAST TIME, OTHERWISE, THE TEST 
39 pe THE DIALOGUE AS IF THE PROGRAM WERE STARTED FOR THE FIRST 
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AN END OF PASS REPORT eS ety EACH TIME THE PROGRAM IS EXECUTED 
FOR ALL DEVICES IN THE TEST QUE. THE END OF PASS REPORT INCLUDES A 
MESSAGE AND AN ERROR SUMMARY. 


4.4 PERFORMANCE REPORT 


enecan on baer data: REPORTS ARE GIVEN DURING THE EXECUTION OF THE 


4.5 PROGRAM HALTS 


THERE ARE NO SCHEDULED HALTS DURING THE EXECUTION OF THE PROGRAM. 
PROCESSOR HALTS ARE DUE TO THE TRAP CATCHER. 


4.6 ERROR REPORTS 


THE FIRST LINE OF THE ERROR REPORT CONTAINS THE NUMBER OF THE 
UNIT BEING TESTED, THE TEST NUMBER, THE ERROR NUMBER AND THE VALUE OF 
THE PROGRAM COUNTER WHERE THE ERROR WAS CALLED. THIS LINE IS FOLLOWED 
BY THE ERROR MESSAGE: ONE OR MORE LINES OF TEXT WHICH GIVE A BRIEF, 
YET COMPREHENSIVE DESCRIPTION OF THE ERROR. THE ERROR MESSAGE IS 
NORMALLY FOLLOWED BY ONE OR MORE PAIRS OF LINES CONTAINING DATA 
HEADERS AND DATA PERTININENT TO THE ERROR, INCLUDING EXPECTED AND 
ACTUAL TEST RESULTS. 


5.0 ENVIRONMENTAL SUPPORT 
5.1 PROCESSOR COMPATIBILITY 


THE RMO5/3/2 SUBSYSTEM FUNCTIONAL TEST IS EXECUTABLE ON ANY PDP-11 
PROCESSOR, PROVIDING PREVIOUSLY MENTIONED HARDWARE REQUIREMENTS ARE 
MET, AND PROVIDING THAT DATA THROUGHPUT ON THE SYSTEM IS SUFFICIENT TO 
SUSTAIN DATA TRANSFER OPERATIONS. 


5.2 DUAL PORT CONFIGURATIONS 


THE gett hh; SUBSYSTEM ns He TEST DOES NOT SPECIFICALLY TEST 
DUAL PORT LOGIC IN THE RM05/3/2 Bag 4 ig BUT IS EXECUTABLE ON 
RMO5/3/2 SUBSYSTEMS HAVING THE DUAL PORT OPTION PROVIDING THE DUAL 
PORT SWITCH IS SET TO THE APPROPRIATE PORT (A OR B). 


5.35 MEMORY PARITY HARDWARE 


MEMORY PARITY HARDWARE IS NOT USED DURING THE EXECUTION OF THE 
RMO5/3/2 SUSBYSTEM FUNCTIONAL TEST. 


SEQ 0006 
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SEQ 0007 


5.4 MEMORY MANAGEMENT HARDWARE 


MEMORY MANAGEMENT HARDWARE IS NOT USED DURING THE RM05/3/2 
SUSBYSTEM FUNCTIONAL TEST. CAPABILITIES OF THE MASSBUS CONTROLLER. 
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¢ H 5.5 ACT11, APT11 COMPATIBILITY 

1 THE ee SUSBYSTEM FUNCTIONAL TEST IS COMPATIBLE WITH ACT11 
242 AND APT11 IN BOTH DUMP AND AUTOMATIC MODES. FURTHER, THE PROGRAM 
243 WILL EXECUTE a QUICK PASS DURING THE FIRST PASS IN SUPPORT OF QUICK 
244 VERIFY MODE. 
245 
246 
247 
318 5.6 XXDP COMPATIBILITY 
250 THE RMO5/3/2 SUSBYSTEM FUNCTIONAL TEST IS COMPATIBLE WITH XXDP IN 
251 DUMP AND CHAIN MODES, AND PROVIDES MEDIA PROTECTION IN THE CASE WHERE 
$2¢ THE RMO5/3/2 1S THE XXDP LOADING DEVICE. 
254 
255 
$28 5.7 OPERATING SYSTEM COMPATIBILITY 
4 THE PROGRAM 1S NOT COMPATIBLE WITH ANY SOFTWARE OPERATING SYSTEM. 
260 
261 
262 6.0 TEST DESCRIPTION 
263 
264 
265 
266 
267 
4 CONTROLLER ACCESS TEST 
$f0 PURPOSE : 
272 TO VERIFY THAT THE UNIBUS ADDRESS OF THE SUBSYSTEM IS 
54 CORRECT, AS DEFINED AT LOCATION $BASE. 
14 PROCEDURE : 
277 THE TEST TRIES TO ACCESS ALL MASSBUS CONTROLLER REGISTERS 
278 oo ae THE $BASE ADDRESS. REGISTER CONTENTS ARE IGNORED DURING 
279 THE TEST, AND THE TEST FAILS IF A BUS TIMEOUT OCCURS FOR ANY 
say REGISTER TRANSFER. 
282 IF THE TEST FAILS AND THE PROGRAM 1S RUNNING IN A_ STAND 
283 ALONE ENVIRONMENT, 1.E., LOCATION 42 1S 0, THE PROGRAM WILL JUMP 
284 TO LOCATION 204 WHICH Ac Lous THE OPERATOR TO CHANGE THE $BASE 
285 ADDRESS VIA CONSOLE DIALOGUE. OTHERWISE, THE PROGRAM ESCAPES 10 
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THE END OF PASS HANDLER. 


DEVICE AVAILABLE TEST 


PURPOSE : 


TO VERIFY THAT THE UNIT UNDER TEST IS AVAILABLE FOR TESTING, 
AND IS NOT LOCKED OR PROGRAMMED TO THE ALTERNATE PORT. 


PROCEDURE : 


THIS TEST SELECTS THE DEVICE AND READS CONTROL STATUS 
REGISTERS 1 AND 2 TO VERIFY THAT THE SELECTED DEVICE IS AVAILABLE 
FOR TESTING, AS_INDICATED BY DVA STATUS, BIT 11 OF RMCS1 AND NED 
app BIT 12 OF RMCS2. THE RESULTS OF THE TEST CAN VARY AS 

LLOWS: 


sNONEXISTANT DEVICE = THE DEVICE IS NONEXISTENT OR IS LOCKED 
ON THE ALTERNATE PORT AND IS THEREFORE NOT AVAILABLE FOR TESTING; 


DEVICE NOT AVAILABLE - THE DEVICE EXISTS BUT IS SEIZED BY 
THE ALTERNATE PORT AND 1S NOT AVAILABLE FOR TESTING; 


-BUS TIMEOUT - THE MASSBUS CONTROLLER FAILED TO DETECT A 
NONEXISTENT DEVICE; 


-DEVICE AVAILABLE - THE DEVICE IS AVAILABLE FOR TESTING. 


THE PROGRAM JUMPS TO THE SUBPASS HANDLER WHICH SELECTS THE 
NEXT DRIVE TO BE TESTED IF THE DEVICE IS NOT AVAILABLE. 


DRIVE TYPE TEST 


PURPOSE : 


TO VERIFY THAT THE UNIT UNDER TEST IS AN RMOS, RMO3 OR RMO2 
SINGLE PORT OR DUAL PORT SUBSYSTEM. 


PROCEDURE : * 


THIS TEST READS THE DRIVE TYPE REGIS 
SELECTED DEVICE AND VERIFIES THAT THE DEVICE 
DUAL PORT RM05/3/2 SUBSYSTEM. IF THE SELEC 
RMO5/3/2, THE PROGRAM JUMPS TO THE SUBPAS 
SELECT THE NEXT DEVICE FOR TESTING. 


TER, RMDT, OF THE 
A SINGLE PORT OR 
pevice 1S NOT AN 


ANDLER WHICH WILL 


SEQ 0008 
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UNIBUS INITIALIZE TEST 


PURPOSE : 


VERIFY THAT ALL APPLICABLE SUBSYSTEM REGISTERS ARE 
INITIALIZED BY THE RESET INSTRUCTION. 


PROCEDURE : 

NONZERO VALUES ARE WRITTEN IN EACH APPLICABLE REGISTER. A 
RESET INSTRUCTION IS EXECUTED, AND THE REGISTERS ARE TESTED TO 
INSURE THEY WERE INITIALIZED. THIS TEST IS DONE ONCE BECAUSE OF 
APT COMPATIBILITY REQUIREMENTS. 


eccunt _ FOLLOWING REGISTERS ARE PRESET BEFORE THE INITIALIZE 


RMCS1 = 003577 
RMBA = 777776 
RMCS2 = 021037 
RMER1 = 777777 
RMER2 = 777777 
RMMR = 040001 


IN ADDITION, THE DATA BUFFER IS = TO FORCE DLT,TRE,SC AND OR 
TO A ONE AND TO FORCE IR TO A ZERO 


CONTROLLER CLEAR TEST 


PURPOSE : 


TO VERIFY THAT APPLICABLE SUBSYSTEM REGISTERS ARE 
INITIALIZED BY A ‘’CONTROLLER CLEAR'' OPERATION. 


PROCEDURE : 


LIKE THE UNIBUS INITIALIZE TEST, THIS TEST WRITES NONZERO 
VALUES IN THOSE REGISTERS WHICH ARE A at BY CONTROLLER 
CLEAR. THE SUBSYSTEM IS THEN CLEARED USING A CONTROLLER CLEAR, 
1.£., BIT 5 OF CONTROL STATUS REGISTER 2 (RMCS2), AND EACH 
REGISTER IS READ TO INSURE IT WAS CLEARED. 


ERROR CLEAR TEST 


SEQ 0009 
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SEQ 0010 
401 PURPOSE : 


403 TO VERIFY THAT ALL APPLICABLE RH MASSBUS CONTROLLER STATUS 
404 AND ERROR CONDITIONS ARE INITIALIZED BY AN ERROR CLEAR OPERATION. 


406 PROCEDURE: 


408 AN "'RH ERROR CLEAR'’ OPERATION, 1.E£., WRITING A ONE IN TRE, 
409 BIT 14 OF RMCS1 WILL CLEAR THE FOLLOWING STATUS BITS: 


411 -TRE, BIT 14 OF RMCS1 
413 -MCPE, BIT 13 OF RMCS1 = READ ONLY 
415 -DLT, BIT 15 OF RMCS2 = READ ONLY 
417 WCE, BIT 14 OF RMCS2 - READ ONLY 
419 -UPE, BIT 13 OF RMCS2 
421 -NED, BIT 12 OF RMCS2 - READ ONLY 
423 -PGE, BIT 10 OF RMCS2 = READ ONLY 
425 -MXF, BIT 09 OF RMCS2 
427 -MDPE, BIT 08 OF RMCS2 - READ ONLY 


430 THE TEST SETS UPE AND MXF STATUS BITS, THEN SETS TRE (ERROR 
43) CLEAR) AND VERIFIES THAT ALL THE ABOVE STATUS BITS ARE CLEARED. 


437 DRIVE STATUS TEST 
439 PURPOSE : 


44) TO VERIFY THAT THE STORAGE MODULE DISK DRIVE IS IN A_ STATE 
442 THAT PERMITS FURTHER TESTING. 


444 PROCEDURE : 


446 THIS TEST INITIALIZES THE MASSBUS AND EXAMINES STATUS OF THE 
447 SELECTED DEVICE FOR THE FOLLOWING CONDITIONS: 


449 MOL, BIT 12 OF RMDS =1, INDICATING THAT UNIT READY IS 
450 ASSERTED BY THE DRIVE; 


452 BIT 11 OF RMDS =0, INDICATING THAT THE DRIVE IS NOT IN 
453 A WRITE RDROTECT STATE; 


455 -DVC, BIT O7 OF RMERS =0, INDICATING DRIVE FAULT IS 
456 UNASSERTED BY THE DRIVE; 
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UNS, BIT 14 OF RMER1 SHOULD EQUAL DVC, OTHERWISE AC POWER 
1S Low” OR'A FAILURE HAS OCCURRED WITH UNSAFE STATUS. 


PRIMARY/SECONDARY ERROR TEST 
PURPOSE : 


TO VERIFY THAT THE RMO5S/3/2 CAN EXECUTE A COMMAND WITHOUT 
INCURRING UNEXPECTED ERRORS. 


PROCEDURE : 
THE TEST EXECUTES A PACK ACKNOWLEDGE COMMAND AND MAKES SURE 


THAT GO RESETS AND THAT THERE ARE NO PARITY ERRORS, ETC. VOLUME 
VALID STATUS IS IGNORED. 


DIAGNOSTIC MODE TEST 
PURPOSE: 
TO VERIFY THAT MAINTENANCE HARDWARE 1S OPERATIONAL. 
PROCEDURE : 
THE TEST THAT DIAGNOSTIC MODE CAN BE SET AND RESET, THEN 


VERIFIES THAT “MOL, PIP, WRL, SKI, AND DVC"' CAN BE CONTROLLED 
USING MAINTENANCE REGISTER 1. 


PACK ACKNOWLEDGE TEST 
PURPOSE : 
TO VERIFY THAT VOLUME VALID CAN BE SET BY A PACK ACKNOWLEDGE 
COMMAND, LENDING CREDENCE TO THE EXECUTION OF THE COMMAND AND 10 
THE STABILITY OF THE UNIT READY SIGNAL FROM THE DRIVE. 
PROCEDURE: 


A PACK ACKNOWLEDGE COMMAND IS ISSUED 10 THE SELEC hig DEVICE 
AND VOLUME VALID STATUS, BIT 10 OF RMDS, IS CHECKED FOR ONE. 


SEQ 0011 
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RECALIBRATE TEST 
PURPOSE : 

THE PRIMARY PURPOSE IS TO ASCERTAIN THAT THE DRIVE a 
EXECUTE A_ RECALIBRATE OPERATION TO THE EXTENT THAT ‘PIP’ A 
"SKI'' STATUS BECOME UNASSERTED AT THE he bh he oF THe 
RECALIBRATE. THE SECONDARY PURPOSE IS 10 PUT THE DRIVE IN A 
KNOWN STATE SO THAT FURTHER TESTS CAN CHECK FOR PURE XPECTED STATE 
CHANGES IN THE DRIVE. 

PROCEDURE: 

THE RECALIBRATE TEST PRESETS THE DISK ADDRESS REGISTER, 
RMDA, AND THE DESIRED CYLINDER REGISTER, RMDC, TO ZERO, THEN 
EXECUTES : MECH senate COMMAND. THE TEST VERIFIES THE FOLLOWING 
CONDITION 

-SKI=0, ‘SEEK ERROR’ IS INACTIVE; 


PIP=0, “‘ON CYLINDER’ JIS ACTIVE, AS INDICATED BY 
“POSITIONING IN PROGRESS" BEING INACTIVE; 


-1AE=0, NO "“INVALID ADDRESS ERROR’’ DURING RECALIBRATE; 

-OP1=0, NO "OPERATION INCOMPLETE ERROR’, INDICATING THAT 
THAT THE DRIVE WAS READY Al THE START OF THE COMMAND AND THAT ON 
Ee STATUS WENT INACTIVE WHEN THE DRIVE RECEIVED THE 


-ATA=1, ATTENTION IS SET BY RECALIBRATE. 


ABORT RECALIBRATE TEST 
PURPOSE : 


TO VERIFY THAT THE RMO5/3/2 INHIBITS A RECALIBRATE WHEN AN 
ABORT CONDITION EXISTS AT THE START OF THE COMMAND. 


PROCEDURE : 


THE TEST SETS AN ERROR IN THE ERROR REGISTER AND ISSUES A 
RECALIBRATE COMMAND, VERIFYING THAT ‘'P]P’’ REMAINS INACTIVE. 


IVC RECALIBRATE TEST 
PURPOSE : 


SEQ 0012 
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TO VERIFY THAT INVALID COMMAND STATUS, BIT 12 OF RMER2, SETS 
WHEN VOLUME VALID IS INACTIVE DURING A RECALIBRATE COMMAND. 


PROCEDURE : 
THE PROGRAM SETS AND ~ ety DIAGNOSTIC MODE WHICH CAUSES 
VOLUME VALID, BIT 6 OF RMDS TO RESET. THE PROGRAM THEN EXECUTES 


A RECALIBRATE COMMAND AND VERIFIES THAT ‘“‘IvC'' STATUS SETS AND 
THAT ‘'PIP'’ REMAINS INACTIVE. 


IAE RECALIBRATE TEST 
PURPOSE : 


TO VERIFY THAT INVALID ADDRESS ERROR DOES NOT SET DURING A 
RECALIBRATE COMMAND . 


PROCEDURE : 
THE TEST PRESETS THE DISK ADDRESS (RMDA) AND THE DESIRED 


CYLINDER ADDRESS (RMDC) TO ILLEGAL VALUES AND ISSUES A 
tn en COMMAND, VERIFYING THAT “‘IAE"’ DOES NOT SET DURING THE 


RECALIBRATE AT OFFSET 
PURPOSE : 
TO VERIFY THAT OFFSET MODE DOES NOT AFFECT RECALIBRATE. 
PROCEDURE : 
THE TEST EXECUTES AN OFFSET COMMAND, THEN EXECUTES A 


RECALIBRATE COMMAND AND VERIFIES THAT THERE ARE NO ERRORS DURING 
RECALIBRATE. 


DRIVE CLEAR TEST 
PURPOSE : 


TO VERIFY THAT ALL APPLICABLE RM05/3/2 MASSBUS ADAPTER ERROR 
AND STATUS CONDITIONS ARE INITIALIZED BY A ‘DRIVE CLEAR’* COMMAND. 


PROCEDURE: 


SEQ 0013 
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THIS TEST WRITES ONES IN THOSE MASSBUS ADAPTER BITS WHICH 
ARE INITIALIZED BY DRIVE CLEAR , THEN ISSUES THE DRIVE CLEAR 
COMMAND AND VERIFIES THAT EACH BIT “IS CLEARED. ADDITIONALLY, 
REGISTERS WHICH ARE NOT AFFECTED BY “DRIVE CLEAR’ ARE ALSO PRESET 
AND VERIFIED. 

THE FOLLOWING ITEMS ARE PRESET: 

»-RMER1, ERROR REGISTER 1 IS SET TO ALL ONES; 

-DMD, DIAGNOSTIC MODE IS SET; 

-RMER2, ERROR REGISTER 3, IS SET TO ALL ONES. 


FOLLOWING THE DRIVE CLEAR COMMAND, THE FOLLOWING ITEMS ARE 
CHECKED: 


~-RMCS1, IS CHECKED FOR DVA=1, FO-F4 AND GO=0, ALL OTHER BITS 
ARE DONT CARES; 


-RMDS, IS CHECKED FOR 0, EXCEPT FOR MOL,DPR,DRY, AND VV 
WHICH SHOULD BE ONE, AND PGM WHICH IS A DONT CARE. 


-RMER1, IS CHECKED FOR 0; 
-RMAS, 1S CHECKED TO INSURE THE APPROPRIATE ATA BIT IS 0; 


-RMMR, IS CHECKED FOR 0, EXCEPT FOR WORD CLOCK, LAST SECTOR, 
AND LAST SECTOR AND TRACK WHICH ARE DONT CARES; 


RMMR2 1S CHECKED FOR 0, EXCEPT FOR THE TEST BIT WHICH IS 
ONE, AND REQA, REGB WHICH ARE DONT CARES; 


-RMEC2 1S CHECKED FOR 0; 
-RMER3 IS CHECKED FOR 0; 


NOP TEST 
PURPOSE: 
TO VERIFY THE EXECUTION OF ‘'NOP’’ COMMAND. 
PROCEDURE : 
A NOP COMMAND IS EXECUTED ON THE SELECTED DEVICE AND STATUS 


1S CHECKED TO VERIFY THAT THERE WERE NO ERRORS OR UNEXPECTED 
CHANGES IN STATUS. 


SEQ 0014 


| ¢, 
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OFFSET TEST 


PURPOSE : 
T VERIFY THE EXECUTION OF ‘‘OFFSET'’ COMMAND. 
PROCEDURE : 
OFFSET STATUS, BIT" OF RADS IS SET AND THAT ATTENTION. BIT. 15" OF 


RMDS IS ALSO SET. ADDITIONALLY, CONTROLLER, ADAPTER, AND DRIVE 
STATUS IS CHECKED FOR UNEXPECTED CHANGES. 


GO/ATA TEST 


PURPOSE: 


TO VERIFY THAT “ATA WILL RESET WITH "GO" PROVIDING 
COMPOSITE ERROR IS INACTIVE. 


PROCEDURE : 


ATTENTION, BIT 15 OF RMDS, IS SET USING AN OFFSET COMMAND 
AND RESET USING A NOP COMMAND. 


WRITE ATA TEST 


PURPOSE : 


TO VERIFY THAT ATTENTION CAN BE RESET BY WRITING THE 
ATTENTION SUMMARY REGISTER, RMAS. 


PROCEDURE : 


ATTENTION IS SET USING AN OFFSET COMMAND AFTER WHICH THE 
PROGRAM WRITES A 0 IN THE ATTENTION SUMMARY REGISTER, VERIFYING 
THT ATTENTION REMAINS SET. FOLLOWING THAT, THE PROGRAM WRITES A 
1 IN RMAS AND VERIFIES THAT ATTENTION RESETS. 


ERROR/ATA TEST 


PURPOSE : 


TO VERIFY THAT “'GO"’ DOES NOT RESET “‘ATA’’ WHEN THERE IS A 
COMPOSITE ERROR. 


SEQ 0015 
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PROCEDURE : 


aioe 1S SET WITH AN OFFSET COMMAND AFTER WHICH ONE OF THE 
ERROR BITS IS _ SET THE PROGRAM THEN ISSUES A NOP COMMAND AND 
VERIFIES THAT THE ATTENTION BIT REMAINS SET. 


PROGRAM INTERRUPT TEST 


PURPOSE: 


TO VERIFY THAT THE SUBSYSTEM WILL GENERATE A PROGRAM 
INTERRUPT WHEN PROCESSOR PRIORITY iS LESS THAN CONTROLLER 
PRIORITY AND INTERRUPT IS ENABLED. 


PROCEDURE : 
ATTENTION IS SET USING AN OFFSET COMMAND. WITH INTERRUPT 


ENABLED AND PROCESSOR PRIORITY SET BELOW CONTROLLER PRIORITY, THE 
PROGRAM VERIFIES THAT A PROGRAM INTERRUPT OCCURS. 


INHIBIT INTERRUPT TEST 


PURPOSE : 


TO VERIFY THAT A PROGRAM INTERRUPT DOES NOT OCCUR WHEN (1) 
PROCESSOR AND CONTROLLER PRIORITY ARE THE SAME AND INTERRUPT IS 
ENABLED OR (2) WHEN PROCESSOR PRIORITY IS LESS THAN CONTROLLER 
AND INTERRUPTS ARE NOT ENABLED. 


PROCEDURE : 


ATTENTION IS SET USING AN OFFSET COMMAND WITH THE PRIORITY 
OF THE PROCESSOR SET EQUAL TO THE PRIORITY OF THE CONTROLLER. 
INTERRUPT IS ENABLED AND THE TEST VERIFIES THAT A PROGRAM 
INTERRUPT DOES NOT OCCUR. INTERRUPTS ARE DISABLED AND PROCESSOR 
PRIORITY IS LOWERED AND THE TEST VERIFIES THAT A PROGRAM 
INTERRUPT DOES NOT OCCUR. 


RETURN TO CENTERLINE TEST 


PURPOSE : 
TO VERIFY THE EXECUTION OF ‘RETURN TO CENTERLINE’ COMMAND. 


SEQ 0016 


E 
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SEQ 0017 
4 PROCEDURE: 
801 THIS TEST gpd AN RTC COMMAND AND VERIFIES THAT OFFSET 
802 STATUS, BIT 0 OF RMDS_IS RESET AND THAT ATTENTIGN, BIT 15 OF RMDS 
B04 IS SET. UNEXPECTED STATUS OR ERROR CONDITIONS ARE ALSO VERIFIED. 
805 
806 
807 
808 
+44 READ IN PRESET TEST 
Bi> PURPOSE : 
az TO VERIFY THE EXECUTION OF ''READ IN PRESET*’ COMMAND. 
Hs PROCEDURE : 
817 THIS TEST LOADS NON ZERO VALUES IN THOSE ADAPTER REGISTERS 
818 WHICH ARE INITIALIZED BY THE READ IN PRESET COMMAND, THEN 
819 EXECUTES THE COMMAND AND VERIFIES _ CONTENTS OF EACH REGISTER. 
851 THE FOLLOWING REGISTERS ARE CHECKED 
822 RMD THE DISK ADDRESS REGISTER, 1S LOADED WITH ALL 
Ha ONES AND VERIFIED TO BE ZERO AFTER THE RIP COMMAND; 
825 THE DESIRED CYLINDER REGISTER, IS LOADED WITH 
859 ALL OES. (601777) AND VERIFIED TO BE ZERO AFTER THE RIP COMMAND; 
828 THE OFFSET REGISTER, 1S PRESET (TO 016200) AND 
829 VERIFIED. 16 BE ZERO AFTER THE TEST; 
830 
831 
832 
833 
834 
4 RMDC CLEAR OFFSET TEST 
tH PURPOSE : 
839 TO VERIFY THAT WRITING THE DESIRED CYLINDER REGISTER (RMDC) 
Hey WILL CLEAR OFFSET MODE. 
es PROCEDURE : 
844 OFFSET MODE IS SET USING THE OFFSET COMMAND, THEN RESET BY 
845 WRITING RMDC. 
846 
847 
848 
849 
850 
£4 ILLEGAL FUNCTION TEST 
Bez PURPOSE : 
855 TO VERIFY THAT THE RMO5/3/2 SUBSYSTEM DETECTS ALL ILLEGAL 
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FUNCTIONS. 
PROCEDURE : 


EACH ILLEGAL FUNCTION CODE IS EXECUTED WITH THE PROGRAM 
VERIFYING THAT ‘ILLEGAL FUNCTION'’ STATUS, BIT 0 OF RMER1 IS SET 
FOR EACH CODE. THE SUBSYSTEM IS INITIALIZED PRIOR TO EACH 


ILLEGAL FUNCTION TEST. 


INVALID COMMAND TEST 
PURPOSE : 
TO VERIFY IVC ERROR DETECTION. 
PROCEDURE : 
THE TEST RESETS VOLUME VALID USING MAINTENANCE UNIT 


THEN EXECUTES A NOP COMMAND AND VERIFIES THAT IVC IS SET. 


PROCESS IS REPEATED FOR EACH FUNCTION CODE, WITH IvC 
CHECKED ACCORDING TO THE FUNCTION. 


INVALID ADDRESS ERROR TEST 
PURPOSE : 
TO VERIFY IAE ERROR DETECTION. 
PROCEDURE : 


THE TEST EXECUTES EACH Arg! 


TI 
TO ILLEGAL ADDRESSES, AND VERIFIES 


WRITE LOCK ERROR TEST 
PURPOSE : 
TO VERIFY WLE ERROR DETECTION. 
PROCEDURE : 
THE TEST SIMULATES WRITE PROTE 
EXECUTED. EACH FUNCTION CODE IS TES 


ON CODE WITH RMDA, AND RMDC SET 
JAE ACCORDING TO THE FUNCTION. 


CT USING MAINTENANCE WRITE 
PROTECT AND VERIFIES WLE vgnith TO THE FUNCTION BEING 


SEQ 0018 
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SEQ 0019 


ERROR ABORT TESTS 
PURPOSE: 
TO TEST COMMAND EXECUTION DURING AN ABORT CONDITION. 
PROCEDURE: 


EACH FUNCTION CODE IS EXECUTED UNDER A seatenatih UNSAFE 
CONDITION AND THE TEST VERIFIES THAT GO IS RESET 


RMR TEST 
PURPOSE : 
TO VERIFY THAT RMR ERROR IS DETECTED. 
PROCEDURE : 


TRE TEST EXECUTES A NOP COMMAND WITH DEBUG CLOCK ENABLED. 
oy GO SET, THE TEST WRITES RMCSI, VERIFYING THAT RMR ERROR 


PARITY ERROR TEST 
PURPOSE : 
TO VERIFY THAT PARITY ERRORS ARE DETECTED. 
PROCEDURE : 
WITH PAT SET TO CAUSE BAD PARITY ON THE CONTROL BUS, THE 


TEST WRITES A SHIFTING ONE BIT PATTERN TO RMDA AND VERIFIES THAT 
AN ERROR IS DETECTED BY THE RMO5/3/2 FOR EACH PATTERN. 


ILLEGAL REGISTER TEST 
PURPOSE : 


TO VERIFY THE DETECTION OF ILLEGAL REGISTER ADDRESSES BY THE 
SUSBSYSTEM. 


CZRMMAQ RMOS/3/2 FCTNL TST 1 


1007 


o 
@ 


es et ee et es et 
eee ee jejelolejelejlojlojleloloelelolo) 


PROPRIPIRIN ID I|NY @ os ot ot tt SS OO 
AVMSWN —OVOOnNG UF WOO 


MACRO v03.01 


SEEK 


H 2 
11-APR-80 13:04:53 PAGE 3-17 


PROCEDURE : 

EACH REGISTER ADDRESS IS ACCESSED AND ILLEGAL REGISTER 
STATUS, BIT 1 OF RMER1 1S CHECKED ACCORDING TO THE ADDRESS USED. 
NOTE THAT THE EXECUTION OF —s TEST IS DEPENDENT ON THE REGISTER 
ADDRESS JUMPER IN THE CONTROLLER BECAUSE THE RANGE OF 
ADDRESSES WHICH :'ty CONTROLLER WILL RESPOND TO IS LIMITED BY THE 


WAY THE JUMPER IS C 


TESTS 
PURPOSE: 

THE PURPOSE OF EACH OF THE FOLLOWING SEEK TESTS IS TO VERIFY 

eo EXECUTION OF SEEK OPERATIONS BY THE RMO5/3/2 SUBSYSTEM USING 
A SET OF ADDRESSES THAT TEST THE ADAPTER/DEVICE INTERFACE AND 

ELECTROMECHANICAL HEAD POSITIONING HARDWARE. 

PROCEDURE : 

EACH TEST WILL RECALIBRATE THE DRIVE IF ‘'PIP’’ OR ‘‘SKI"’ IS 
ACTIVE. FOLLOWING THAT, THE TEST EXECUTES A SEEK TO A CYLINDER 
ADDRESS OR SERIES OF ADDRESSES. AT THE COMPLETION OF EACH SEEK 
OPERATION, SUBSYSTEM STATUS IS STORED AND THE TEST CHECKS FOR 
PRIMARY ERRORS WHICH PRECLUDE FURTHER ERROR CHECKING. IF THERE 


ARE NO PRIMARY ERRORS THE TEST CHECKS FOR OPERATIONAL ERRORS AND 
THEN SECONDARY ERRORS. 


SEEK TO LAST CYLINDER TEST 
THIS TEST SEEKS TO THE LAST CYLINDER, 1.E£., CYLINDER 822. 


SEEK TO FIRST CYLINDER TEST 
THIS TEST SEEKS TO THE FIRST CYLINDER, 1.£. CYLINDER O. 


SEEK PRIME CYLINDERS TEST 


THIS TEST SEEKS FORWARD TO EACH PRIME CYLINDER ADDRESS, 1|.E, 
CYLINDERS 1,2,4,8,...,512. 


SEQ 0020 


. 
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SEQ 0021 
1027 
1028 
1029 
1030 
1031 
4 SEEK ZERO DIFFERENCE TEST 
oes THIS TEST EXECUTES SUCCESSIVE SEEKS TO CYLINDER 0. 
1036 
1037 
1038 
1039 
ihe? SEEK MAXIMUM DIFFERENCE FORWARD TEST 
1042 THIS TEST SEEKS TO CYLINDER 0 FOLLOWED By A SEEK TO THE LAST 
1043 CYLINDER. 
1044 
1045 
1046 
1047 
1048 
Hy e44 SEEK ADJACENT FORWARD TEST 
1051 THIS TEST SEEKS TO CYLINDER 0, FOLLOWED BY A SEEK TC THE 
4 ADJACENT FORWARD CYLINDER, 1.E£., CYLINDER 1. 
1054 
1055 
1056 
1057 
H+ + SEEK ADJACENT REVERSE TEST 
1060 THIS TEST SEEKS TO CYLINDER 1, FOLLOWED BY A SEEK TO THE ADJACENT 
1061 REVERSE CYLINDER, 1.£., CYLINDER 0. 
1062 
1063 
1064 
1065 
1066 
+ +44 SEEK TO INVALID SECTOR TEST 
1069 WITH THE OFFSET REGISTER SET FOR 18 BIT FORMAT, THE PROGRAM 
1070 SEEKS TO CYLINDER 0, TRACK 0, FOR EACH INVALID SECTOR ADDRESS AND 
+44 VERIFIES THAT INVALID ADDRESS ERROR SETS FOR EACH SECTOR. 
1073 
1074 
1075 
1076 
H+ 544 SEEK TO INVALID TRACK TEST 
1079 THE TEST SEEKS TO EACH INVALID TRACK ADDRESS WITH CYLINDER 
1080 AND SECTOR ADDRESS SET TO 0 AND VERIFIES THAT INVALID ADDRESS 
1081 ERROR SETS FOR EACH TRACK ADDRESS. 
1082 
1083 
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SEQ 0022 


1087 SEEK TO INVALID CYLINDER TEST 
1089 THE PROGRAM SEEKS TO EACH INVALID ra ce ADDRESS WITH THE 


1090 SECTOR AND TRACK ADDRESS SET TO O AND VERIFIES THAT INVALID 
1091 ADDRESS ERROR SETS FOR EACH CYLINDER ADDRESS. 


IvC SEEK TEST 
PURPOSE : 


TO VERIFY THAT INVALID COMMAND STATUS, B'T 12 OF RMER2 SETS 
WHEN VOLUME VALID IS INACTIVE DURING A SEEK COMMAND. 


PROCEDURE : 
THE TEST RESETS VOLUME VALID BY SETTING AND RESETTING 


DIAGNOSTIC MODE, THEN EXECUTES A SEEK COMMAND AND VERIFIES THAT 
"“IvC'' STATUS IS SET. 


ooo 


ABORT SEEK TEST 


PURPOSE : 

TO VERIFY THAT THE RMO5/3/2 INHIBITS A SEEK WHEN AN ABORT 
CONDITION EXISTS AT THE START OF THE COMMAND. 
PROCEDURE : 


THE TEST SETS AN ERROR iN THE ERROR REGISTER AND ISSUES A 
SEEK COMMAND, VERIFYING THAT ‘'PIP'’ REMAINS INACTIVE. 


SEEK AT OFFSET 
PURPOSE : 
: TO VERIFY THAT OFFSET MODE DOES NOT CAUSE ERRORS DURING 
K. 


PROCEDURE : 


THE TEST EXECUTES AN OFFSET COMMAND THEN EXECUTES A SEEK 
(UMMAND, VERIFYING THE RESULTS OF THE SEEK. 
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K 2 
CZRMMAQ RMO5/3/2 FCTNL TST 1 MACRO v03.01 11-APR=-80 13:04:53 PAGE 3-20 SEQ 0023 


LOOK AHEAD TEST 
PURPOSE: 
TO INSURE THAT THE SECTOR COUNT WHICH ORICINATES AT THE 
DRIVE AND 1S VISIBLE THROUGH THE LOOK AHEAD REGISTER (RMLA) IS 
OPERATIONAL. 
PROCEDURE: 

WITH THE OFFSET REGISTER SET FOR 18 BIT FORMAT, THE PROGRAM 
SAMPLES THE LOOK AHEAD REGISTER AND COLLECTS EACH DIFFERENT 
SAMPLE UNTIL THE VALUE OF THE FIRST SAMPLE IS DETECTED OR UNTIL 
31. SAMPLES ARE TAKEN. THE COLLECTION IS THEN TESTED TO DETERMINE 
THAT THE SECTOR COUNT INCREMENTS CORRECTILY THROUGH THE ENTIRE 


RANGE OF VALID SECTORS. THE SAME PROCEDURE IS REPEATED FOR 16 
BIT FORMAT, WHERE THE LIMIT ON THE NUMBER OF SAMPLES IS 33. 


SEARCH EACH SECTOR ON CYLINDER 

PURPOSE : 

TO VERIFY THE EXECUTION OF SEARCH OPERATIONS WITH NO HEAD 
MOTION USING THE SECTOR PULSE FOR SECTOR COMPARE. 
PROCEDURE : 

THE TEST INTIALIZES AND RECALIBRATES THE DRIVE IF ‘“‘PIP'’ OR 
“SKI'' 1S ACTIVE THEN SEEKS TO CYLINDER 0. THE TEST THEN DOES A 
SEARCH TO EACH SECTOR AND VERIFIES THAT THE SEARCH COMPLETES 


WITHOUT ERROR. THIS TEST IS DONE ONCE IN 18 BIT FORMAT AND ONCE 
IN 16 BIT FORMAT. 


SEARCH OFF CYLINDER 
PURPOSE : 


TO VERIFY THE EXECUTION OF A SEARCH COMMAND WITH IMPLIED 
HEAD MOTION. 


PROCEDURE : 
THE DRIVE 1S RECALIBRATED AND INITIALIZED IF THE DRIVE IS 


te Ree i a Nc ee ee ee ae rc ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee et 
Oe OD el ce ce et ee ed ed ed 
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SEQ 0024 

OFF CYLINDER OR HAS A SEEK ERROR. THE PROGRAM THEN EXECUTES AND 
EXPLICIT SEEK TO CYLINDER 410., FOLLOWED By A SEARCH TO CYLINDER 
411., TRACK 0, SECTOR 0. THE FOLLOWING IS SEARCHED FOR BY AN 
EXPLICIT SEEK TO CYLINDER 409., FOLLOWED BY A SEARCH TO CYLINDER 
412., TRACK 0, SECTOR 1, ETC., UNTIL ALL THE SECTORS HAVE BEEN 
SEARCHED. THE TEST IS DONE FOR 18 BIT FORMAT, WHERE THE LAST 
SECTOR SEARCHED IS SECTOR 29. THE TEST_IS REPEATED FOR 16 BIT 
FORMAT, WHERE THE LAST SECTOR SEARCHED IS 31. 


SEARCH INVALID SECTOR 
PURPOSE: 


TO VERIFY THE DETECTION OF AN INVALID SECTOR ADDRESS DURING 
A SEARCH OPERATION. 


PROCEDURE : 


THE DRIVE IS RECALIBRATED AND INITIALIZED IF IT IS_ OFF 
LINDER OR HAS A SEEK ERROR. WITH THE OFFSET REGISTER SET FOR 
BIT FORMAT, THE PROGRAM EXECUTES A SEARCH TO EACH INVALID 
TOR, J.E., SECTORS 30 AND 31 AND VERIFIES THAT INVALID ADDRESS 
OR SETS FOR EACH SECTOR. 
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SEARCH INVALID TRACK 
PURPOSE : 


TO VERIFY THE DETECTION OF AN INVALID TRACK ADDRESS DURING A 
SEARCH OPERATION. 


PROCEDURE : 


THE DRIVE IS RECALIBRATED AND INITIALIZED IF IT IS OFF 
CYLINDER OR HAS A SEEK ERROR, THE PROGRAM EXECUTES A SEARCH TO 
EACH INVALID TRACK ADDRESS WITH THE CYLINDER ADDRESS 0, AND 
pL cen 0 AND VERIFIES THAT INVALID ADDRESS ERROR SETS FOR 

H ° 


WAWw 


SEARCH INVALID CYLINDER 
PURPOSE: 


TO VERIFY THE DETECTION OF AN INVALID CYLINDER ADDRESS 
DURING A SEARCH OPERATION. 
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SEQ 0025 
PROCEDURE : 
THE DRIVE IS RECALIBRATED AND INITIALIZED IF IT IS _ OFF 
CYLINDER OR HAS A SEEK ERROR. THE PROGRAM THEN EXECUTES A SEARCH 
TO EACH INVALID CYLINDER ADDRESS AND VERIFIES THAT INVALID 


ADDRESS ERROR SETS FOR EACH CYLINDER. 


aan iV tab wah eal al 
ARGS SOVOU 
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1 

1 

1 

1 

1 

| 

1 

1 

1 

1 

1 

1266 

1267 IVC SEARCH TEST 

1268 

1269 PURPOSE : 

1271 TO VERIFY THAT INVALID COMMAND STATUS SETS WHEN VOLUME VALID 
12re 1S INACTIVE DURING A SEARCH COMMAND. 

127% PROCEDURE : 

1276 VOLUME VALID 1S RESET BY SETTING AND RESETTING DIAGNOSTIC 
1277 MODE, AFTER WHICH THE TEST EXECUTES A SEARCH COMMAND, VERIFYING 
1278 THAT "IVC" STATUS SETS. 

1279 

1280 

1281 

1282 

1283 

1284 ABORT SEARCH TEST 

1285 

1688 PURPOSE : 

1288 TO VERIFY THAT THE RMOS/3/2 INHIBITS A SEARCH WHEN AN ABORT 
if 44 CONDITION EXISTS AT THE START OF THE COMMAND. 

1291 PROCEDURE : 

1293 THE TEST SETS AN ERROR IN THE ERROR REGISTER AND ISSUES A 
1294 SEARCH COMMAND, VERIFYING THAT "PIP REMAINS INACTIVE. 

1296 

1297 

1298 

1299 

ts SEARCH AT OFFSET TEST 

1302 PURPOSE : 

1504 TO VERIFY THAT OFFSET MODE DOES NOT CAUSE SEARCH ERRORS. 
1306 PROCEDURE : 

1308 THE TEST EXECUTES AN OFFSET COMMAND, THEN EXECUTES A SEARCH 
1509 COMMAND, VERIFYING THAT THERE ARE NO ERRORS DURING THE SEARCH. 
1311 


SEQ 0026 
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000004 
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;PROGRAM REVISION #001 

-TITLE CZRMMAO 1 hae FCTNL TST 1 
s*COPYRIGHT (C) 1980 

:*DIGITAL EQUIPMENT CORP. 

s #MAYNARD, MASS. 01754 

:*PROGRAM BY MIKE LEAVITT 


eTHIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
3 *PACKAGE (MAINDEC=11-DZQAC-C4), 1980. 


:SBTTL OPERATIONAL SWITCH SETTINGS 
5 HALT ON ERROR 
TEST 
INHIBIT ERROR TYPEOUTS 


INHIBIT ITERATIONS 
BELL ON ERROR 


ERROR 
LOOP ON TEST IN SWR<7:0> 


er 
z»eernreneeneneeereeteeeeeees 


Oo MWE VS NOOO — WE 
_ 
z= 
——- 
Nm 
co 


-SBTTL BASIC DEFINITIONS 
;*INITIAL ADDRESS OF THE STACK POINTER *** 1100 *** 
STACK = 1100 


EMT ;:BASIC DEFINITION OF ERROR CALL 
10T ::BASIC DEFINITION OF SCOPE CALL 


eames ts 5 tee DEFINITIONS 
11 ;;CODE FOR rt erttyy TAB 


wn 
oO 
Oo 
Uv 
m 
“on 


Hf = 12 ;;CODE FOR LINE 

CR = 15 ;;CODE FOR CARRIAGE RETURN 

CRLF = 200 ::CODE FOR CARRIAGE RETURN-LINE FEED 
cL. - = 177776 ;;PROCESSOR STATUS WORD 

STKLMT = 177774 7;STACK LIMIT REGISTER 

PIRQ = 177772 ;;PROGRAM INTERRUPT tit REGISTER 
DSWR = 177570 ; HARDWARE SWITCH REGISTER 

DDISP = 177570 ; ;HARDWARE DISPLAY REGISTER 
;*GENERAL PURPOSE REGISTER vec iee beet 

RO = 40 ;;GENERAL REGISTER 

R1 = fl ;;GENERAL REGISTER 

R2 = ke ;;GENERAL REGISTER 

R3 = 33 ; GENERAL REGISTER 


SEQ 0027 
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MACRO V03.01 11-APR-80 13:04:53 PAGE Pea 
: I GENERAL R 


;;PROGRAM COUNTER 


;*PRIORITY LEVEL DEFINITIONS 


;;PRIORITY 
7;PRIORITY 
7 :PRIORITY 
7;PRIORITY 
;:PRIORITY 
7: PRIORITY 
: as eatonity 

;PRIORITY 


REGISTER’ SWITCH DEFINITIONS 
100000 


R4 = %4 
R5 = 45 
R6 = 26 
R7 = 47 
SP = 26 
PC = %7 

T 
PRO = 0 
PRI = 40 
PR2 = 100 
PR3 = 140 
PR4 = 200 
PRS = 240 
PR6 = 300 
PR? = 340 
3*" "SWITCH 
Sw15 = 1000 
SW14 = 40000 
$w13 = 20000 
Swi2 = 10000 
Swi = 4000 
$wW10 = 2000 
Sw09 = 1000 
$w08 = 400 
Sw07 = 200 
$w06 = 100 
Sw05 = 40 
SW04 = 20 
Sw03 = 10 
SwO02 = 4 
Sw] = 2 
$w00 = 1 
SW9=SWO9 
SW8=SW08 
SwW7=SW07 
SW6=SW06 
Sw5=Sw05 
SW4=SW04 
Sw3=Sw03 
SwW2=Sw02 
SWi=Sw01 
SwO=Sw00 
B1T15 = 1000 
BIT14 = 40000 
B1T13 == 20000 
BIT12 = 10000 
BIT11 = 4000 
BIT10 = 2000 
BIT09 = 1000 
B1T08 = 400 
B1T07 = 200 
BI1T06 = 100 
BIT05 = 40 


DATA BIT DEFINITIONS (BIT00 TO BIT15) 
100000 


NOW SEWN O 


SEQ 0028 


mo 
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000001 


000004 


000240 


004000 


000077 


000000 


000026 
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1O— Nw 


bosBesBosdesDesDesdesdesTosTesTe ste sde cde ede «] 
st be Be Os Bs bs bs hs Bs bs bs Bs bs 


aa ah st ag mt mt ag ts 
F O-—"NWEUO VNDOOOCOOCOCO 


moa 


hunhnnh wm ft 


T C 

PIRQVEC 
. SBTTL 
7*RMCS1 


Oe md mg ag eg eg eg wg = 


Qooooocoooon wn 
Oo" MWE UO yNO@wo 


—MmF rn 
oo 


“CPU'’ TRAP VECTOR ey 


RM REGISTER BIT 


6 
240 


;:TIME OUT AND OTHER ERRORS 
et a AND IL tEGAL INSTRUCTIONS 


:; TRACE TRAP 

: BREAKPOINT TRAP (BPT) 

oy TRAP (101) *#SCOPE®* 
;;POWER FAIL 

a ye TRAP (EMT) *#*ERROR*® 
;;‘"TRAP’’ TRAP 


[TTY KEYBOARD VECTOR 
Titty PRINTER VECTOR 
:;PROGRAM INTERRUPT REQUEST VECTOR 


DEFINITIONS 


CONTROL STATUS REGISTER 


BIT11 DEVICE AVAILABLE=READ ONLY 
B1T05 FUNCTION CODE 

BIT04 ;FUNCTION CODE 

B1T03 FUNCTION CODE 

B1T02 FUNCTION CODE 

B1T01 FUNCTION CODE 

B1T00 :60 BIT 

000077 FUNCTION CODE MASK 

CODES (BITS 01-05 OF RMCS1) 

444 :NOP COMMAND 

000002 7 ILLEGAL ——— 

000004 SEEK COMMAND 

000006 :RECALIBRATE COMMAND 
000010 DRIVE CLEAR COMMAND 
000012 RELEASE COMMAND 

000014 ;OFFSET COMMAND 

000016 ;RETURN TO sree e COMMAND 
000020 ;READ IN PRESET COMMAND 
ease :PACK ACKNOWLEDGE COMMAND 
000024 ILLEGAL COMMAND 

000026 ; ILLEGAL COMMAND 


SEQ 0029 
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512 000030 
515 000030 
000032 
000034 
000036 
000040 
00042 
00044 
000046 
' 516 000050 
517 000052 
518 000054 
519 000056 
520 000060 
521 000062 
522 000064 
th 000066 
524 000070 
525 000072 
526 000074 
527 000076 
528 
529 
530 
531 
532 010000 
533 004000 
534 002000 
535 001000 
536 000400 
537 
538 
539 009020 
540 000010 
541 000004 
542 000002 
543 000001 
544 
545 
546 177400 
547 000377 
548 
549 
550 
551 100000 
552 040000 
553 020000 
554 010000 
555 004000 
556 002000 
557 001000 
558 000400 
559 000200 
560 000100 
561 000001 
562 
563 
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SEARCH = 000030 
ILF30 ==: 000030 
ILF32) 0©=6=_: 000032 
ILF34 = =_ «000034 
ILF360=— =: 000036 
ILF40 = =_:« 000040 
ILF42 == 000042 
ILF44 = =: 000044 
ILF46 0 = =_—« 000046 
wCD = 000050 
WCH = 000052 
ILF54 == 000054 
ILF56 0©=— =_: 000056 
wD = 000060 
WH = 000062 
ILF64 == 000064 
ILF660=— =_-_—« 000066 
RD = 000070 
Re = 000072 
ILF74 = 000074 
ILF76 = =_ «000076 
s*RMDA DISK ADDRESS REGISTER 
; TRACK ADDRESS DEFINITIONS 
TA Al6 = BIT12 
TA8 = BIT11 
TAS = BIT10 
TA2 = BITO9 
TAI = BIT08 
;SECTOR ADDRESS DEFINITIONS 
SA16 = BIT04 
SA8 = BITO3 
SA4 = BIT02 
SA2 = BI]TO1 
SA] = BIT00 
; TRACK & SECTOR MASKS 
TADMSK = 177400 
SADMSK = 000377 
s*RMDS DRIVE STATUS REGISTER 
ATA = BIT15 
ERR = BIT14 
PIP = B1T13 
MOL = BIT12 
WRL = BIT11 
LBT = BJT10 
PGM = BIT09 
DPR = BIT08 
DRY = BIT07 
VV = BIT06 
OM = B1T00 


> *RMER? 


ERROR REGISTER #1 


+ SEARCH COMMAND 
G OMMA 


ITE CHECK —a-" AND DATA 
LEGAL COMM 


;WRITE DATA COMMAND 

;WRITE HEADER AND DATA COMMAND 
; ILLEGAL COMMAND 

:ILLEGAL_ COMMAND 

;READ DATA COMMAND 

;READ HEADER AND DATA COMMAND 
; ILLEGAL COMMAND 

: ILLEGAL COMMAND 


L 

L 

LLEGAL MAND 

URLTE CHECK DATA COMMAND 
L 

L 


Be Se Be Se Be Se Oe Be OS 


; TRACK ADDRESS 16. 
; TRACK ADDRESS 8. 
TRACK ADDRESS 4 

s TRACK ADDRESS 2 
; TRACK ADDRESS 1 


SECTOR ADDRESS 16. 
;SECTOR ADDRESS 8. 
SECTOR ADDRESS 4 
SECTOR ADDRESS 2 
;SECTOR ADDRESS 1 


; TRACK ADDRESS MASK 
;SECTOR ADDRESS MASK 


sATTENTION hy 

: COMPOSITE ERRO 

;POSITIONING IN, PROGRESS 
MEDIUM ON LINE 

WRITE LOCK 

;LAST BLOCK TRANSFERRED 

; PROGRAMMABLE 

;DRIVE PRESENT 

:DRIVE READY 

; VOLUME VALID 

OFFSET MODE ACTIVE 


SEQ 0030 


CZRMMAO RMO5S/3/2 FCTNL TST 1 
RM REGISTER BIT DEFINITIONS 


610 


APACS OSOOOS 
ee ee 
OOONO WF wh — 


100000 


000001 


115760 


000377 


002000 


000100 
003700 


100000 


000001 


100000 


ee. 
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= 
oO 
» 
oO 
nnn nnk nnn ne 


—9SF WOWWOWIWOOOIWIOWVIOIOOOW 


NDTMSK = 
3" 'NDTMSK"' 
: COMMANDS, 1. 


:*RMAS ATTENTION SUMMARY REGIST 


OVD O-NWEUOE NOWOO—NWEW 


ED TO MASK ERROR 


mc-- 


ATNMSK = 377 

:*RMLA LOOK AHEAD REGISTER 
SC4 = BIT10 

$¢3 = BITO09 

SC2 = B1T08 

$1 = B1T07 

SCO = B1T06 

SCTMSK = 003700 


;*RMMR1 MAINTENANCE REGISTER #1 
bet ie ONLY BITS 


x 

oO 
Te | 
DBOwWwWwoowwwwwowoaw 
—~ om ee ee ee ae a a es es ee 
sh a a yg ey oy = = 


—=— =OOCOCOOoOOoOOoO---—-— - 
YA OM NWYMOS NOWOO— NW 


eel 


;DATA CHECK ERROR 
;DRIVE UNSAFE 
SOPERATION INCOMPLETE 
RIVE TIMING a, 
WR ITE LOCK ERR 
; INVALID ADDRESS. ERROR 
SAD DDRESS OVERFLOW ERROR 
;HEADER CRC ERROR 
HEADER COMPARE ERROR 
ZECC "HARD'' ERROR 
sWRITE CLOCK FAILURE 
;FORMAT ERROR 
:PARITY ERROR 
REGISTER MODIFICATION REFUSED 
ILLEGAL REGISTER 
ILLEGAL FUNCTION 


!DTE!WLE!AOE!HCRC!HCE!ECH!WCFIFER 


REGISTER 1 DURING NON = DATA 


-- HOUSEKEEPING AND POSITIONING COMMANDS 


ER 
:MASK FOR ATTENTION BITS 


:SECTOR COUNT = 16 
:SECTOR COUNT = 8 
SECTOR COUNT = 4 
SECTOR COUNT = 2 
SECTOR COUNT = 1 


;SECTOR COUNT MASK 


;DEBUG CLOCK 
;DEBUG CLOCK ENABLE 


; MAINTENANCE CLOCK 
READ DATA 

SUNIT READY 

ON CYLINDER 

; SEEK ERROR 

DRIVE FAULT 

SECTOR PULSE 

;WRITE PROTECT 

; INDEX PULSE 

SECTOR COMPARE 

DIAGNOSTIC MODE 


OCCUPIED 


SEQ 0031 


CZRMMAO RMOS/3/2 FCTNL TST 1 
RM REGISTER BIT DEFINITIONS 


621 040000 

622 020000 

623 010000 

624 004000 

625 002000 

626 001000 

627 000400 

628 000200 

629 000100 

630 000040 

631 000020 

632 000010 

633 000004 

634 000002 

635 000001 

636 

637 

638 

639 100000 

640 040000 

641 020000 

642 004000 

643 

644 020024 

645 024024 

646 

647 

648 

649 010000 

650 004000 

651 002000 

652 000200 

653 

654 

655 

656 001777 

657 

658 

659 

660 

661 100000 

662 040000 

665 020000 

664 010000 

665 004000 

666 002000 

669 001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 


670 
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BoOwowwowwwwvwwoaw 
bt bs bt se ae es bs a 
|) 
ooooo°oe°o---— 
MWE UO N@WOO—frwWwe 


v 
=x 
> 
ee 


ow 
a be 
= = 
oo 
o— 


:*RMDT DRIVE TYPE REGISTER 


SNGPRT 
DULPRT 


:*RMOF OFFSET REGISTER 


BITI2 
BIT11 
B1T10 
B1T07 


= 

ao 

el 
wom ot ot 


;RUN AND GO 


ENABLE SEARCH 
[LOOKING FOR SYNC 
; ENABLE ry OuT 


;WRITE DATA BIT 

LAST SECTOR 

ZLAST SECTOR AND TRACK 
;DIAGNOSTIC MODE 


;NOT SECTOR ADDRESSED = 0 
: TAPE DRIVE = 0 

sMOVING HEAD = 1 

sDRIVE REQUEST REQUIRED 


;SINGLE PORT DRIVE TYPE (RMO2) 
;DUAL PORT DRIVE TYPE (RMO2) 


16 BIT WORD FORMAT 
ECC INHIBIT 

;HEADER COMPARE INHIBIT 
OFFSET FORWARD 


:*RMDC DESIRED CYLINDER ADDRESS REGISTER 


CYLMSK = 001777 
;*RMMR2 MAINTENANCE REGISTER #2 
oy a ONLY BITS 


DBoOwowowwwowwwwawowaw 
es et ae bt bs be as se a be bs bs bs ee 
sh shh 
oQoooo°oooe°o°o-----— 


@ 

@ 

o 

~N 
Hone nn 


OM NMWWE AS NOOO —NWEW 


sMASK FOR CYLINDER ADDRESS 


;PORT A REQUEST 

:PORT B REQUEST 

TAG CONTROL 

:COMMAND SEQUENCE TEST BIT 
:CONTROL OR CYLINDER TAG 
bree OR HEAD TAG 


SEQ 9032 
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CZRMMAO RMO5S/3/2 FCTNL TST 
RM REGISTER BIT DEFINITIONS SEQ 0033 
or) ;*RMER2 ERROR REGISTER 2 
673 100000 BSE = BIT15 ;BAD SECTOR ERROR 
674 40000 SK] = BIT14 SEEK INCOMPLETE 
675 20000 OPE = B1T13 OPERATOR PLUG ERROR 
676 010000 IvCc = BITI2 ; INVALID COMMAND ERROR 
677 004000 LSC = BIT11 ;LOSS OF SYSTEM CLOCK 
678 002000 LBC = BIT10 LOSS OF BIT CLOCK 
679 000200 DvCc = B1T07 sDEVICE CHECK 
re 4 000010 DPE = BIT03 :DATA PARITY ERROR 
ot -SBTTL PROGRAM MNEMONICS 
684 100000 MSE = BIT15 MANUFACTURING DETECTED oS Ne ERROR 
= 040000 USE = BIT14 sUSER DETECTED SECTOR ERR 
re Hf ~SBTTL RM REGISTER INDEX VALUES 
689 000000 RMCS1 == 00 CONTROL STATUS REGISTER #1 
690 000006 RMDA = 06 :DiSK ADDRESS REGISTER 
691 000012 RMDS = 12 DRIVE STATUS REGISTER 
692 000014 RMER1 = 14 sERROR REGISTER #1 
693 000016 RMAS = 16 ATTENTION SUMMARY REGISTER 
694 000020 RMLA = 20 ;LOOK AHEAD REGISTER 
695 000024 RMMR1 = = 24 MAINTENANCE REGISTER 
696 000626 RMDT = 26 ;DRIVE TYPE REGISTER 
697 000030 RMSN = 30 ;SERIAL NUMBER REGISTER 
698 000032 RMOF = 32 :OFFSET REGISTER 
699 000034 RMDC = 34 DESIRED CYLINDER REGISTER 
700 000036 RMHR = 36 sHOLDING REGISTER 
701 000040 RMMR2 = 40 sMAINTENANCE REGISTER #2 
702 000042 RMER2 == 42 ERROR REGISTER #2 
703 000044 RMECI] = 44 ECC POSITION REGISTER 
704 000046 RMEC2 = 46 s;ECC PATTERN REGISTER 
707 000050 ILRG5O = 50 ILLEGAL REGISTER 50 
000052 ILRG52 = 52 ILLEGAL REGISTER 52 
000054 ILRG54 = 54 SILLEGAL REGISTER 54 
000056 ILRG56 = 56 ILLEGAL REGISTER 56 
000060 ILRG60 = 60 ILLEGAL REGISTER 60 
000062 ILRG62 = 62 ILLEGAL REGISTER 62 
000064 ILRG64 = 64 ILLEGAL REGISTER 64 
000066 ILRG66 = 66 ILLEGAL REGISTER 66 
000070 ILRG70 = 70 ILLEGAL REGISTER 70 
000072 ILRG72 = 72 ILLEGAL REGISTER 72 
000074 ILRG74 = 74 ILLEGAL REGISTER 74 
708 000076 ILRG76 = 76 ILLEGAL REGISTER 76 
Ad 000077 IDXMSK = 77 sMASK FOR REGISTER INDEX NUMBER 
ay -SBTTL RH CONTROLLER REGISTER BIT DEFINITIONS 
M7 :*RMCS1 CONTROL STATUS REGISTER #1 
715 100000 SC = BIT15 7 SPECIAL gf th aati ONLY 
716 040000 TRE = BIT14 ; TRANSFER ERROR 
717 020000 MCPE = B1T13 ;MASSBUS CONTROL BUS PARITY ERROR-READ ONLY 
718 002000 PSEL = BIT10 :PORT B SELECT 
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RH CONTROLLER REGISTER BIT DEFINITION SEQ 0034 
719 001000 Al7 = BIT09 ;ADDRESS EXTENSION 
720 000400 Al6 = BIT08 ;ADDRESS EXTENSION 
721 000200 RDY = Bliu7/ ;READY-READ ONLY 
ise 000100 lE = BIT06 : INTERRUPT ENABLE 
ee >*RMCS2 RH CONTROL STATUS REGISTER #2 
726 100000 DLT = BIT15 ;DATA LATE=READ ONLY 
727 040000 WCE = BIT14 “WRITE CHECK ERROR=READ ONLY 
728 020000 UPE = B1T13 ;UNIBUS PARITY ERROR 
729 010000 NED = BITI2 s;NONEXISTANT DRIVE=READ ONLY 
730 004000 NEM = BIT11 :NONEXISTANT MEMORY=-READ ONLY 
731 002000 PGE = BIT10 ;PROGRAM ERROR-READ ONLY 
732 001000 MXF = BITO9 sMISSED TRANSFER 
733 000400 MDPE = BITO8 ;MASSBUS DATA BUS PARITY ERROR=READ ONLY 
734 000200 OR = B1T07 ;OUTPUT READY=-READ ONLY 
735 000100 IR = BIT06 ; INPUT READY=-READ ONLY 
736 000040 CLR = BIT05 ;CONTROLLER CLEAR 
737 000020 PAT = BIT04 ;PARITY TEST 
738 000010 BA] = BIT03 ;UNIBUS ADDRESS INCREMENT INHIBIT 
741 000004 U2 = BIT02 ;UNIT SELECT 
000002 ul = BIT01 sUNIT SELECT 
142 000001 ud = BIT00 sUNIT SELECT 
hy ;UNIT SELECT MASK 
SH 000007 UNTMSK = 7 ;UNIT SELECT MASK 
ea >*RMCS3 RH70 CONTROL STATUS REGISTER #3 
749 100000 APE = BIT15 ;ADDRESS PARITY ERROR 
750 040000 DPEH] = BIT14 :DATA PARITY ERROR HIGH WORD 
751 020000 DPELO = BIT13 ;DATA PARITY ERROR LOW WORD 
752 010000 WCEHI = BITI2 sWRITE CHECK ERROR HIGH WORD 
753 004000 WCELO = BIT11 sWRITE CHECK ERROR LOW WORD 
754 002000 L = BIT10 ;DOUBLE WORD TRANSFER 
755 000100 = BIT06 ; INTERRUPT ENABLE 
756 000010 IPCK3 = BIT03 s INVERT PARITY CHECK 
757 000004 IPCK2 = BIT02 s INVERT PARITY CHECK 
758 000002 IPCK1 = BIT0O1 INVERT PARITY CHECK 
ty 000001 IPCKO = BITOO s INVERT PARITY CHECK 
es -SBTTL RH11/RH70 CONTROLLER REGISTER INDEX VALUES 
763 000000 RMCS1 = 00 sCONTROL, STATUS REGISTER #1 
764 000002 RMWC = 02 ;WORD COUNT REGISTER 
765 000004 RMBA = 04 ;BUS ADDRESS REGISTER 
766 00010 RMCS2 s 10 SScHg STATUS REGISTER #2 
767 000022 RMDB e 22 ;DATA BUFFER 
768 000050 RMBAE = 50 BUS ADDRESS EXTENSION 
4 000052 RMCS3 = $2 ;CONTROL, STATUS REGISTER #3 
771 176700 ABASE = 176700 ;UNIBUS ADDRESS 
Ae) 120254 AVECT1 = 120254 ;UNIBUS VECTOR ADDRESS AND PRIORITY 
775 
776 -SBTTL TRAP CATCHER 
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TRAP CATCHER 


777 
778 


779 
781 


782 


000174 
000176 


000200 


000046 
000052 


000024 
000044 


000000 


000174 
000000 
000000 


000137 


000204 


009204 
001100 


001100 


001100 


000000 


001114 


=0 
;*ALL UNUSED LOCATIONS FROM 4 = 776 CONTAIN A" «*2,HALT"’ 
:*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
SLOCATION Q) CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 


DISPREG: .WORD 0 ::SOFTWARE DISPLAY REGISTER 
SWREG:  .WORD 0 >: SOFTWARE SWITCH REGISTER 


-SBTTL STARTING ADDRESS(ES) 
005412 JMP OA START 
-SBTTL ACT11 HOOKS 


3;JUMP TO STARTING ADDRESS OF PROGRAM 


SRA AREER EEE RETREAT AHKEARAAHAAARAe eee eeeeeee 
HOOKS go BY ACT11 
$SVP PC= :SAVE PC 


46 
SENDAD 331)SET LOC.46 TO ADDRESS OF $ENDAD IN 


-WORD 0 ;;2)SET LOC. re TO ZERO 
- =$SVPC 3; RESTORE P 


-=1100 
-SBTTL APT PARAMETER BLOCK 


SERRA RARER EEE ekKkkekeeeeeteeeeeKtekeeeeeeeeeeeee 
:SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 
:: LAORSSAAARASZAASAASAAAALELASAASASLASARASE SESE RESR REESE ERSE ESS S SEES 
-SX=.  ;; SAVE CURRENT LOCATION 
-=24  3;SET POWER FAIL TO POINT TO START OF PROGRAM 
200 ::FOR APT START UP 
.=44 — ;;POINT TO APT INDIRECT ADDRESS PNTR. 
SAPTHDR ;;POINT TO APT HEADER BLOCK 
.$X ;;RESET LOCATION COUNTER 
 eeeeeeencenerecrerecreresterenreneenereeeecceeeeeetereseneesess 
:SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
INTERFACE SPEC. 


SAPTHD: 

$SHIBTS: .WORD 0 :;TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 
SMBADR: .WORD $MAIL ;;ADDRESS OF APT MAILBOX (BITS 0-15) 
$TSTM: .WORD 1 ;;RUN TIM OF LONGEST TEST 


SPASTM: .WORD 2 Loves TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 
SUNITM: .WORD 2 ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDED UNIT 


-WORD $ETEND-SMAIL/2 ;;LENGTH MAILBOX-ETABLE (WORDS) 
TAGADR=. 


. SEOP 


SEQ 0035 


CZRMMAQ_RMOS/3/2 FCTNL TST 1 
COMMON TAGS 


0 

001114 
001114 
001114 000000 
001116 000 
001117 000 
001120 000000 
001122 000000 
001124 000000 
001126 000000 
001130 00 
001131 00 
001132 000000 
001134 000000 
001136 000000 
001140 000000 
001142 000000 
001144 000000 
001146 000000 
001150 000 
001151 000 
001152 000000 
001154 177570 
001156 177570 
001160 177560 
001162 177562 
001164 177564 
001166 177566 
001170 000 
001171 002 
001172 012 
001173 000 


001212 207 377 
001216 077 

001217 015 

001220 012 000 
001222 


001222 000000 
001224 000000 
001226 000000 


K 3 
MACRO V03.01 11-APR=80 13:04:53 PAGE 5 


377 


-SBTTL COMMON TAGS 


RRR AKReeeeeeeeeeeeeeeereeeeeeeeKeeeeeeeeeeeeeeeeeneeeeeeeeeeee 


SeTHIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 


;*USED IN THE PROGRAM. 


-=TAGADR 
SCMTAG: ::START OF COMMON TAGS 

-WORD 0 
STSTNM: .BYTE 0 2s CONTAINS THE Me 4 NUMBER 
SERFLG: .BYTE 0 3:CONTAINS ERROR FLAG 
SICNT: .WORD 0 : CONTAINS SUBTEST” ITERATION COUNT 
SLPADR: .WORD 0 ;;CONTAINS SCOPE LOOP ADDRESS 
SLPERR: .WORD 0 ::CONTAINS SCOPE RETURN FOR ERRORS 
SERTTL: .WORD 0 :: CONTAINS TOTAL ERRORS DETECTED 
SITEMB: .BYTE 0 ::CONTAINS ITEM CONTROL ort 
SERMAX: .BYTE 1 :;CONTAINS MAX. ERRORS PER TEST 
SERRPC: .WORD 0 ;:CONTAINS PC OF LAST ERROR oe 
$GDADR: .WORD 0 :;CONTAINS ADDRESS OF ‘GOOD’ DAT 
SBDADR: .WORD 0 ::CONTAINS ADDRESS OF ‘BAD’ DATA 
$GDDAT: .WORD 0 :; CONTAINS GOOD" A iy 
SBDDAT: .WwORD 0 3:CONTAINS ‘BAD 

— : ERESERVED=-NOT 10. BE USED 
$AUTOB: .BYTE 0 : AUTOMATIC MODE INDICATOR 
SINTAG: as ; ;: INTERRUPT MODE INDICATOR 

R: «WORD DSWR ; ADDRESS OF SWITCH REGISTER 
DISPLAY: .WORD DDISP :;ADDRESS OF DISPLAY REGISTER 
TKS: 177560 ::TTY KBD STATUS 

$TKB: 177562 i: TTY KBD BUFFER 
$TPS: 177564 7: TTY PRINTER STATUS REG. ADDRESS 
$TPB: 177566 :: TTY PRINTER BUFFER REG. ADDRESS 
$NULL: .BYTE 0 :: CONTAINS NULL CHARACTER FOR FILLS 
SFILLS: .BYTE 2 :sCONTAINS # OF FILLER CHARACTERS REQUIRED 
SFILLC: .BYTE 12 ss INSERT FILL CHARS. AFTER A ‘'LINE F 
STPFLG: .BYTE 0 i;TERMINAL AVAILABLE’ FLAG (BIT<O7>< O=YES) 
STMPO: .WORD 0 ::USER DEFINED 
STMP1: .WORD 0 :;USER DEFINED 
STMP2: .WORD 0 ;sUSER DEFINED 
STMP3: .WORD 0 :;USER DEFINED 
STMP4: .WORD 0 + DEFINED 
STIMES: NUMBER OF ITERATIONS 
SESCAPE :0 ESCAPE ON ERROR ADDRESS 
$BELL: .ASCIZ > alee tata CODE FOR BELL 
SQUES: .ASCI] : QUESTION MARK 
SCRLF: .ASCII cis +3 CARRIAGE RETURN 
SLF: eASCIZ = <12> LINE FEED 


05 Ri OA DIE ey Ti. OSE OE 


-SBTTL APT MAILBOX-E TABLE 


Sy eteeeeekee eee eee eee eee eee eee eee eee eee eee ee 


SMAIL: 3; APT MAILBOX 
SMSGTY: .WORD AMSGTY ;;MESSAGE TYPE CODE 
SFATAL: .WORD AFATAL ;;FATAL ERROR NUMBER 
STESTN: .WORD ATESTN ;;TEST NUMBER 


SEQ 0036 


CZRMMAO RMOS/3/2 FCTNL TST 1 


APT MAILBOX-E TABLE 


001254 
001256 


000000 


000000 


000 
000 


000000 
000 
000 

000000 
000 


000000 


. 
MACRO V03.01 11-APR-80 13:04:53 PAGE 5-1 


Pe Se Se Be Oe ee ee ee eee 
eeeeZBBereee 
“> 
= 
nm 
——s 


ACPUOP 


AMAMS1 
AMTYP1 


AMADR1 


AMAMS2 
AMTYP2 
AMADR 


+;PASS COUNT 
+ DEVICE COUNT 


TYPE 
11/04=01, LAS re § e. 11/40" =03,11/40=04,11/45=05 


11/70=06.P 
O=REAL_ TIME CL COCK 
9=FLOATING POINT cacy 
8=MEMORY MANAGEMENT 


Kai 
EM. TYPE BYTE <== (HIGH BYTE) 


500 NSE 
we ADDRESS ,BLK 


M.LAST ADDR. 7 gist -THIS WORD AND LOW OF ‘‘TYPE*’ ABOVE 


: HIGH ADDRESS ,M.S. 

;MEM. TYPE ,BLKA2 
::MEM.LAST tw ee 
+ sHIGH ADDRESS ,M ; -S.BYTE 


4 
;;MEM.LAST sty wt oy 
: HIGH ~ + bp Po -S.BYT 

7; MEM. TYPE BLK 

:>MEM.LAST ADDRESS ,BLKMG 

:: INTERRUPT VECTOR#1,BUS PRIORITY#1 

3; INTERRUPT VECTOR#2BUS PRIORI TY#2 
;;BASE ADDRESS OF EQUIPMENT UNDER TEST 
:;DEVICE MAP 

; CONTROLLER DESCRIPTION WORDA1 

;; CONTROLLER DESCRIPTION WORDA2 

; DEVICE DESC R WORD#O 


DEVICE DESCRIPTOR WORD#6 
:;DEVICE DESCRIPTOR WORD#7 


SEQ 0037 


CZRMMAO RMOS/3/2 FCTNL TST 3% 
USER DEFINED TAGS 


001410 


001410 


001436 


000000 
000000 


000 


000 | 


000000 


000000 


000000 


000000 
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-SBTTL USER DEFINED TAGS 


CTLFG: 
XXDP: 


LSTRK: 


«WORD 
«WORD 


0 
0 


0 
0 


;CONTAINS CONTROL=C FLAG 

it HE LOW BYTE CONTAINS THE DRIVE NUMBER FROM WHICH 
THE PROGRAM WAS LOADED. THE HIGH BYTE CONTAINS THE 

:*xx9P" DEVICE CODE FOR THE RMO05S/3/2. 


4M 
*H1 BYTE, CONTAINS ry TRACK a OF UNIT 
[UNDER TEST. RMO2/3 = 4., RMOS = 18. 


THE REGISTER INPUT BUFFER IS USED FOR 


sSTORING DRIVE STATUS 
GE TBUF : 

;REGISTER INPUT BUFFER 
R 1: D 


MCS ~ WOR 
RMWCI]: WORD 
RMBA] WORD 
RMDAI: .WORD 
RMCS21: .WORD 

MDSI: .WORD 
RMER11: .WORD 
RMASI: .WORD 
RMLAI: .WORD 
RMDB]: .WORD 
RMMR11: .WORD 
RMDTI: WORD 
RMSNI: .WORD 
RMOF]: .WORD 
RMDC]: .WORD 
RMHRI: .WORD 
RMMR2I: .WORD 
RMER2]: .WORD 
RMECII: .WORD 
RMEC21: .WORD 
RMBAE]: .WORD 
RMCS31: .WORD 


pee ew www ole lololololeleleleloleoleolol a) 


:CONTROL, STATUS REGISTER #1 
:WORD COUNT REGISTER 


; #1 
sATTENTION SUMMARY REGISTER 
;LOOK AHEAD REGISTER 

;DATA BUFFER 

:MAINTENANCE REGISTER #1 
DRIVE TYPE REGISTER 

SERIAL NUMBER REGISTER 
OFFSET REGISTER 

; DESIRED tpt REGISTER 
s;HOLDING REGISTER 
:MAINTENANCE REGISTER #2 
ERROR REGISTER #2 

sECC POSITION REGISTER 

sECC PATTERN REGISTER 

;BUS ADDRESS EXTENSION REGISTER 
CONTROL, STATUS REGISTER #3 


THE REGISTER OUTPUT BUFFER IS USED FOR 
ASSEMBLING DATA GOING TO REGISTER 


it OUTPUT BUFFER 


PUTBUF : 

MCS1 WORD 
RMWCO: .WORD 
RMBAO: .WORD 
RMDAO: .WORD 
RMCS20: .WORD 
RMDSO: .WORD 
RMER1O: .WORD 
RMASO: .WORD 
RMLAO: .WORD 
RMDBO: .WORD 
RMMR10: .WORD 
RMDTO: .WORD 


COoooooooo°o°oo 


CONTROL, STATUS REGISTER #1 


: R # 

; ATTENTION erry t REGISTER 
;LOOK AHEAD REGISTER 
[DATA BUFFER 

; MAINTENANCE eee 


ISTE 
;DRIVE TYPE REGISTER 


SEQ 0058 


— CZRMMAO RMOS/3/ 
USER DEFINED TA 


001440 


001462 


| 001514 


001543 


2 FCTNL TST 1 
GS 


000000 


000000 


000000 
000000 


000000 
000000 
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RMSNO: .WORD 0 ; SERIAL NUMBER REGISTER 

RMOFO: .WORD 0 sOFFSET REGISTER 

RMDCO: .WORD 0 DESIRED CYLINDER REGISTER 
RMHRO: .WORD 0 ;HOLDING REGISTE 

RMMR20: .WORD 0 sMAINTENANCE REGISTER #2 
RMER2O: . 0 sERROR REGISTER #2 

RMECIO: .WORD 0 sECC POSITION REGISTER 

RMEC20: .WORD 0 sECC PATTERN REGISTER 

RMBAEO: .WORD 0 ;BUS ADDRESS EXTENSION REGISTER 
RMCS30: .WORD 0 :CONTROL, STATUS REGISTER #3 


sEACH WORD OF THE TEST QUE CONTAINS THE DEVICE NUMBER IN 
;THE LOW BYTE AND THE ATTENTION BIT IN THE HIGH BYTE. THE 
sFIRST WORD CONTAINS THE ADDRESS OF THE DEVICE UNDER TEST 
;IN THE TABLE. A ZERO WORD IS A BLANK AND REPRESENTS THE 
sEND OF THE QUE. 


TSTQUE: .WORD 
~-BLKW 
- WORD 


0 CONTAINS DEVICE POINTER 

8. TEST QUE FOR DEVICES UNDER TEST 

0 ; TABLE TERMINATOR GOES HERE WHEN 
sALL 8. DEVICES ARE UNDER TEST. 


CLKADR: .WORD 0 ;UNIBUS ADDRESS OF KW11 CLOCK 
CLKVCT: .WORD 0 sVECTOR ADDRESS OF Kit? CLOCK 


;THE GET INDEX TABLE CONTAINS A BYTE LIST OF REGISTERS WHICH 
sARE READ BY THE GET SUBROUTINE. THE LIST IS TERMINATED BY 
zA_NEGATIVE BYTE. 

GETINX: .BLKB 23. GET INDEX TABLE 


THE PUT INDEX TABLE ICONTAINS A BYTE LIST OF REGISTERS WHICH 
sARE WRITTEN BY THE PUT SUBROUTINE. THE LIST IS TERMINATED BY 
;A_NEGATIVE BYTE. 

PUTINX: .BLKB 2 ;PUT INDEX TABLE 


;PUT TAGS HERE 


SEQ 0039 


CZRMMAO tha 2 F 


we TST 1 


ERROR POINTER TABL 


0 


001572 


wn 


001572 


001600 


NOW 


001602 


001610 


001612 


001620 


001622 


001630 


001632 


001640 
17 


067604 


074112 


067632 


074112 


4 
MACRO V03.01 11-APR-80 13:04:53 PAGE 7 
SEQ 0040 


-SBTTL ERROR POINTER TABLE 
;*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
X NUMBER FOUN 


;*THE INFORMATION IS OBTAINED BY USING THE INDEX D IN 
;*LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE sean 1S PERTINENT. 


> *NOTE1: IF SITEMB 1S 0 THE ONLY PERTINENT DATA IS ( ». 
3; *NOTE2: EACH ITEM IN THE TABLE CONTAINS & POINTERS EXPLAINED AS FOLLOWS: 
7° EM HES 4 pd TO THE ERROR MESSAGE 
3@ DH 3;POINTS TO be why HEADER 
;* bT ;,POINTS 10 Tf 
7* DF ;;POINTS TO THE BATA FORMAT 
SERRTB: 
sERROR 1 WRONG UNIT SELECTED 

EMT1 

EHT1 

EDT! 

EFT1 
sERROR 2 DEVICE WENT UNAVAILABLE 

EMT2 

EHT] 

EDT1 

EFT1 
sERROR 3 DEVICE WENT NONEXISTENT 

EMT3 

EHT1 

EDT1 

EFT! 
sERROR 4 CONTROLLER NOT READY 

EMT4 

EHT1 

EDT1 

EFT1 
sERROR 5 DRIVE NOT READY AND GO NOT RESET 

EMTS 

EHT1 

EDT1 

EFT1 


4 
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ERROR POINTER TABLE SEQ 0041 
18 ERROR 6 UNEXPECTED VALUE FOR “‘ATA’’ STATUS 
001642 067640 EMT6 
001644 073676 EHT1 
001646 074022 EDT] 
001650 074112 EFTI 
20 
$} sERROR 7 BUS TIMEOUT TRYING TO READ OR WRITE REGISTER 
001652 067646 EMT? 
001654 000000 0 
001656 000000 0 
001660 000000 0 
23 
$3 sERROR 10 DRIVE NOT READY BUT GO IS RESET 
001662 067654 EMT10 
001664 073676 EHT1 
001666 074022 EDT! 
001670 074112 EFT 
26 
$s ERROR 11 GO NOT RESET BUT DRIVE IS READY 
001672 067660 EMT11 
001674 073676 EHT1 
001676 074022 EDT1 
001700 074112 EFT 
29 
" ERROR 12 INCORRECT FUNCTION CODE 
001702 067664 EMT12 
001704 073676 EHT1 
001706 074022 EDT1 
001710 074112 EFTI 
32 
te ERROR 13 PARITY ERROR READING REMOTE REGISTERS 
001712 067672 EMT13 
001714 073676 EHT1 
001716 074022 EDT1 
001720 074112 EFTI 
35 
3 ERROR 14 TRANSFER ERROR IS INCORRECT 
001722 067704 EMT14 
001724 073676 EHT1 
001726 074022 EDT1 
001730 074112 EFT 
38 


39 sERROR 15 INCORRECT WORD COUNT 


ma 


CZRMMAO tte tie + hse TST 1 


ERROR POINTER T 


001760 


001762 
001770 

50 

51 

52 
001772 
002000 
002002 
002004 


002006 
002010 


002012 


074112 


067730 


074112 


067740 


074112 


067770 


074112 


4 
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ERROR 


ERROR 


; ERROR 


; ERROR 


ERROR 


ERROR 


; ERROR 


INCORRECT 


INCORRECT 


INCORRECT 


INCORRECT 


INCORRECT 


INCORRECT 


INCORRECT 


BUS ADDRESS 


LBT STATUS 


AOE 


DISK ADDRESS 


CYLINDER ADDRESS 


WLE STATUS 


UPE STATUS 


SEQ 0042 


CZRMMAQ RMOS/3/2 FCTNL TST 1 


ERROR POINTER TABLE 


80 
81 
82 


002022 


002030 


002032 


002040 


002042 


002050 


002052 


002060 


002062 


002070 


002072 


002100 


002102 


002110 


002112 


070000 
0 


074112 


070030 


074112 


070040 


074112 


070050 


074112 


070060 


074112 


070070 


E 4 
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; ERROR 


; ERROR 


; ERROR 


ERROR 


s ERROR 


; ERROR 


s ERROR 


INCORRECT WCF STATUS 


INCORRECT WCE STATUS 


INCORRECT MDPE STATUS 


INCORRECT DCK STATUS 


INCORRECT ECH STATUS 


DLT SHOULD NOT BE SET 


MXf SHOULD NOT BE SET 


SEQ 0043 


CZRMMAD RMOS/3/2 FC 
ERROR POINTER TABLE SEQ 0044 

002114 073676 EHT1 
002116 074022 EDT] 
002120 074112 EFT1 

83 

4 ERROR 34 DTE SHOULD NOT BE SET 
002122 070100 EMT 34 
002124 073676 EXT] 
002126 074022 EDT] 
002130 074112 EFT1 

86 

. ERROR 35 INCORRECT HCRC STATUS 
002132 070110 EMT35 
002134 073676 EHT1 
002136 074022 EDT] 
002140 074 EFT] 

89 

ey ERROR 36 INCORRECT HCE STATUS 
002142 070120 EMT36 
002144 073676 EHT1] 
002146 074022 EDT1 
002150 074112 EFT1 

92 

4 ERROR 37 INCORRECT FER STATUS 
002152 070130 EMT37 
002154 073676 EHT1 
002156 074022 EDT1 
002160 074112 EFT 

95 

% ERROR 40 DPE SHOULD NOT BE SET (NOT A DATA COMMAND) 
002162 070140 EMT40 
002164 073676 EXT] 
002166 074022 EDT] 
002170 074112 EFT 

98 

Ass ERROR 41 LOST ‘MOL’ DURING PACK ACKNOWLEDGE 
002172 070146 EMT41 
002174 073676 EHT1 
002176 074022 EDT1 
002200 074112 EFT 

101 

10¢ ERROR 42 UNSAFE ERROR DURING PACK ACKNOWLEDGE 
002202 070156 EMT42 
002204 073676 EHT1 


CZRMMAQ RMOS/3/2 FCTNL TST 1 


ERROR POINTER TABLE 


002206 
002210 


002230 


002232 


002240 


002242 


002250 


002252 


002260 


002262 


002270 


002272 


002274 
002276 


07402 
11 


2 
074112 


070246 
073676 
074022 


G 4 
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s ERROR 


ERROR 


;ERROR 


ERROR 


; ERROR 


; ERROR 


; ERROR 


“OP1'’ ERROR DURING PACK ACKNOWLEDGE 


""RMR"’ ERROR DURING PACK ACKNOWLEDGE 


"ILR'' ERROR DURING PACK ACKNOWLEDGE 


“ILF'’ ERROR DURING PACK ACKNOWLEDGE 


COMPOSITE ERROR STATUS IS INCORRECT 


PARITY ERROR WRITING REMOTE REGISTERS 


INCORRECT JAE STATUS DURING SEEK COMMAND 


SEQ 0045 


CZRMMAQ RMOS/3/2 FCTNL TST 1 
ERROR POINTER TABLE 


002300 074112 


002302 p7 0260 


128 

129 

130 

131 
002312 070276 
002314 073676 
002316 074022 
002320 074112 

132 

133 

134 


002330 074112 


002332 070324 


002340 074112 


138 

139 

140 
002342 070336 
002344 073676 
002346 074022 
002350 074112 

143 

142 

143 
002352 070354 
002354 073676 
002356 074022 
002360 074112 

144 

145 

146 

147 
002362 070364 
002364 073676 


H 4 
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; ERROR 


; ERROR 


ERROR 


ERROR 


; ERROR 


;ERROR 


EFT 


OP] ERROR DURING SEEK = MEDIUM IS NOT ON LINE 


OP] ERROR DURING SEEK = MEDIUM IS ON LINE, ASSUME 
ON CYLINDER LATCH DIDN'T RESET 


SEEK INCOMPLETE ERROR DURING SEEK COMMAND 


DEVICE CHECK DURING SEEK COMMAND 


PIP IS STILL SET AFTER SEEK = SKI IS RESET 


ATA DID NOT SET DURING SEEK COMMAND 


IVC ERROR DURING SEEK COMMAND - LOST 
VOLUME VALID 


SEQ 0046 


CZRMMAO RMOS/3/2 FCTNL TST 1 


ERROR POINTER TABLE 


002366 
002370 


002372 


009200 


002402 


002410 


002412 
002420 
002422 
002424 
002426 
002430 


002432 


002440 


002442 


002450 


002452 


074022 
074112 


070402 


074112 


070422 
073676 
074022 
074112 


000000 
000000 
000000 
000000 


070440 


074112 


070460 


070512 


1 4 
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; ERROR 


; ERROR 


s ERROR 


s ERROR 


; ERROR 


s ERROR 


ERROR 


ERRONEOUS IVC ERROR DURING SEEK COMMAND - 
VOLUME VALID IS STIL SET 


MOL IS ZERO, BUT OPI WAS NOT 
REPORTED DURING SEEK COMMAND 


UNUSED 


DRIVE DID NOT DETECT “‘IVC"' ERROR DURING SEEK 


DRIVE EXECUTED A SEEK WITH ERROR SET 


UNEXPECTED ERROR SET IN RMERI 


UNEXPECTED ERROR SET IN RMER2 


SEQ 0047 


CZRMMAQ RMOS/3/2 FCTNL TST 1 


ERROR POINTER TABLE 


002454 
002456 
002460 


002470 


002472 


002500 


002502 


002530 


002532 


002540 


002542 


074112 


070544 


070630 


; ERROR 


s ERROR 


;ERROR 


ERROR 


; ERROR 


; ERROR 


; ERROR 


J 4 
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ERRONEOUS ‘‘IAE'’ ERROR DURING RECALIBRATE 


“ILF'’ ERROR DURING RECALIBRATE 


OPI'’ ERROR DURING RECALIBRATE DUE TO ‘MOL"' = 0 


OPI" ERROR DURING RECALIBRATE BECAUSE ON 
CYLINDER DIDN1 DROP 


"IVC" ERROR DURING RECALIBRATE = ‘'vv'' = 0 


ERRONEOUS ‘‘IVC'' ERROR DURING RECALIBRATE - ‘'vv'' = 1 


SKI"' ERROR DURING RECALIBRATE 


ERROR POINTER TABLE 


002544 
002546 
002550 


002560 


002562 


002632 
002634 


074112 


070706 


070746 
073676 


CZRMMAO RMO5/3/2 FCTNL TST 1 


K 4 
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; ERROR 


; ERROR 


ERROR 


; ERROR 


; ERROR 


;ERROR 


s ERROR 


102 


105 
EMT105 
EHT1 


“DVC'’ OCCURRED DURING RECALIBRATE 


LOST "'MOL"’ DURING RECALIBRATE = ‘‘OPI'’ = 0 


LOST ‘'VV"' DURING RECALIBRATE = “‘IvC'' = 0 


ATA’ DID NOT SET DURING RECALIBRATE 


"OM" DID NOT RESET DURING RECALIBRATE 


Ff 
PIP’ IS STIL SET AFTER RECALIBRATE 
) 
| 
A 


UNEXPECTED “‘ILR"’ ERROR DURING RECALIBRATE 


SEQ 0049 


—_ ‘ 


CZRMMAO RMOS/3/2 FCTNL TST 1 


ERROR POINTER TABLE 


002636 074022 
002640 074112 


002650 


002652 070766 


“002656 074022 
002660 074112 


002662 071006 


002670 074130 


223 

224 

225 
002672 071020 
002674 073724 
002676 074042 
002700 074132 

226 

227 

228 
002702 071026 
002704 073724 
002706 074042 
002710 074132 

22° 

230 

231 


002712 071034 


002722 0710 
002724 073730 
002726 0740 


; ERROR 


s ERROR 


; ERROR 


; ERROR 


ERROR 


ZERROR 


ERROR 


113 


4 
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UNEXPECTED ‘'RMR"’ ERROR DURING RECALIBRATE 


"UNS"' ERROR DURING RECALIBRATE = AC POWER IS LOW 


CANNOT ACCESS MASSBUS CONTROLLER VIA UNIBUS 


NONEXISTENT DEVICE 


DEVICE NOT AVAILABLE 


BUS TIMEOUT-NED STATUS FAILURE 


DEVICE NOT AN RMO5S/3/2 


SEQ 0050 


002730 


003020 


CZRMMAO RMOS/3/2 FCTNL TST 1 
ERROR POINTER TABLE 


074134 


074112 


071106 


Mm & 
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ERROR 


; ERROR 


; ERROR 


; ERROR 


;ERROR 


ERROR 


ERROR 


EFTII4 


121 


RMCS1 NOT INITIALIZED BY UNIBUS 


RMBA NOT INITIALIZED BY UNIBUS 


RMCS2 NOT INITIALIZED BY UNIBUS 


RMER1 NOT INITIALIZED BY UNIBUS 


RMAS NOT INITIALIZED BY UNIBUS 


RMMR1 NOT INITIALIZED BY UNIBUS 


RMDS NOT INITIALIZED BY UNIBUS 


SEQ 0051 


| N 4 
RMOS/3/2 FCTNL TET 1 MACRO 03.01 11-APR-80 13:04:53 PAGE 7-12 
INTER TABLE 


CZRMMAO 
ERROR PO SEQ 0052 

256 

444 sERROR 124 RMEC2 NOT INITIALIZED BY UNIBUS 
003022 071146 EMT124 
003024 073676 EXT] 
003026 074022 EDT! 
003030 074112 EFTI 

259 

ef ERROR 125 RMMR2 NOT INITIALIZED BY UNIBUS 
003032 071156 EMT125 
003034 073676 EHT1 
003036 074022 EDT1 
003040 074112 EFT1 

262 

=? ERROR 126 RMCS1 NOT CLEARED BY CONTROLLER CLEAR 
003042 071166 EMTi26 
003044 073676 EHT1 
003046 074022 EDT1 
003050 074112 EFT1 

265 

$06 ERROR 127 RMBA NOT CLEARED BY CONTROLLER CLEAR 
003052 071200 EMT127 
003054 073676 EHT1 
003056 074022 EDT1 
003060 074112 EFT 

268 

69 sERROR 130 RMCS2 NOT CLEARED BY CONTROLLER CLEAR 
003062 071212 EMT130 
003064 073676 EHT1 
003066 074022 EDT1 
003070 074112 EFT1 

271 

38 ERROR 131 RMER1 NOT CLEARED BY CONTROLLER CLEAR 
003072 071224 EMT131 
003074 073676 EHT1 
003076 074022 EDT1 
003100 074112 EFT 

274 

$2 sERROR 132 RMAS NOT CLEARED BY CONTROLLER CLEAR 
003102 071236 EMT132 
003104 073676 EHT] 
003106 074022 EDT! 
003110 074112 EFT1 


" CIRMMAO rite tie 4 Sms TST 1 MACRO V03.01 11-APR-80 13:04:53 PAGE 7213 


ERROR POINTER T SEQ 0053 
277 
3 sERROR 133 RMMR1 NOT CLEARED BY CONTROLLER CLEAR 
003112 071250 —M1133 
003114 073676 EHT1 
003116 074022 EDT1 
003120 074112 EFTI 
280 
oH TERROR 134 RMDS NOT CLEARED BY <“NTROLLER CLEAR 
003122 071262 EMT134 
003124 073676 EHT1 
003126 074022 EDT1 
003130 074112 EFTI 
283 
oe ERROR 135 RMEC2 NOT CLEARED BY CONTROLLER CLEAR 
003132 071274 EMT135 
003134 073676 EHT1 
003136 074022 EDT1 
003140 074112 EFT 
286 
= ERROR 136 RMMR2 NOT CLEARED BY CONTROLLER CLEAR 
003142 071306 EMT136 
003144 073676 EHT1 
003146 074022 EDT1 
003150 074112 EFT1 
289 
44 ERROR 137 RMCS1 NOT CLEARED BY ERROR CLEAR 
003152 071320 —EMT137 
003154 073676 EHT1 
003156 074022 EDT) 
003160 074112 EFT 
292 
sor ERROR 140 RMCS2 NOT CLEARED BY ERROR CLEAR 
003162 071330 EMT140 
003164 073676 EHT1 
003166 074022 EDT1 
003170 074112 EFT 
295 
or ERROR 141 RMCS1 NOT CLEARED BY DRIVE CLEAR 
003172 071340 EMT141 
003174 073676 EHT1 
003176 074022 EDT1 
003200 074112 EFT1 


298 


CZRMMAO yee the + ge TST 1 MACRO VO03.01 11-APR-80 13:04:53 PAGE 214 


ERROR POINTER 1 SEQ 0054 
+4 sERROR 142 RMDS NOT CLEARED BY DRIVE CLEAR 
003202 071350 EMT142 
003204 073676 EHT1 
003206 074022 EDT! 
003210 074112 EFT 
301 
4 ERROR 143 RMER1 NOT CLEARED BY DRIVE CLEAR 
003212 071360 EMT143 
003214 073676 EHT1 
003216 074022 EDT! 
003220 074112 EFT 
304 
4 ERROR 144 RMAS NOT CLEARED BY DRIVE CLEAR 
003222 071370 EMT144 
003224 073676 EHT1 
003226 074022 EDT1 
3230 074112 EFT 
307 
soe sERROR 145 RMMR1 NOT CLEARED BY DRIVE CLEAR 
003232 071400 EMT145 
003234 073676 EHT] 
003236 074022 EDT! 
003240 074112 EFT 


310 
He ERROR 146 RMMR2 NOT CLEARED BY DRIVE CLEAR 
003242 071410 EMT146 
003244 073676 EHT1 
003246 074022 EDT] 
003250 074112 EFT 
313 
313 ERROR 147 RMER2 NOT CLEARED BY DRIVE CLEAR 
003252 071420 EMT147 
003254 073676 EHT] 
003256 074022 EDT! 
003260 074112 EFT 
316 
4 ;ERROR 150 RMEC2 NOT CLEARED BY DRIVE CLEAR 
003262 071430 EMT150 
003264 073676 EHT! 
003266 074022 EDT! 
003270 074112 EFT 
319 


320 ERROR 151 MEDIUM NOT ON LINE 


CZRMMAO RMOS/3/2 FCTNL TST 1 MACRO v03.01 11-APR-80 13:04:53 PAGE 2215 


ERROR POINTER TABLE SEQ 0055 
321 
003272 071440 —MT151 
003274 073676 EXT] 
003276 074022 EDT! 
003300 074112 EFT 
32 
3a ERROR 152 DRIVE FAULT 
003302 071452 EMT152 
003304 073676 EHT] 
03306 074022 EDT1 
003310 074112 EFT 
325 
34 sERROR 153 UNSAFE SHOULD BE SET BECAUSE DvC IS SET 
003312 071464 EMT153 
003314 073676 EHT1 
003316 074022 EDT1 
003320 074112 EFT 
328 
4 ERROR 154 UNSAFE SHOULD NOT BE SET, AC IS LOW 
003322 071502 EMT154 
003324 073676 EHT1 
003326 074022 EDT1 
003330 074112 EFT 
331 
335 ERROR 155 VOLUME VALID NOT SET BY PACK ACK 
003332 071520 EMT155 
003334 073676 EHT1 
003336 074022 EDT1 
003340 074112 EFT 
334 
4 ERROR 156 OFFSET MODE NOT SET BY OFFSET COMMAND 
003342 071532 EMT156 
003344 073676 EHT1 
003346 074022 EDT} 
003350 074112 EFT 
337 
+35 ERROR 157 OFFSET MODE NOT RESET BY RTC COMMAND 
003352 071544 EMT157 
003354 073676 HT1 
003356 074022 EDT} 
003360 074112 LFT 
340 
341 ERROR 160 RMOF NOT RESET BY RIP COMMAND 


E 5 
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ERROR POINTER TABLE SEQ 0056 
003362 071556 EMT160 
003364 073676 EHT1 
003366 074022 EDT! 
003370 074112 EFT1 
343 
te ZERROR 161 RMDA NOT RESET BY RIP COMMAND 
003372 071566 —EMT161 
003374 073676 EHT1 
003376 074022 EDT1 
003400 074112 EFT 
346 
of ERROR 162 RMDC NOT RESET BY RIP COMMAND 
003402 071600 EMT 162 
003404 073676 EHT1 
003406 074022 EDT1 
003410 074112 EFTI 
349 
350 ERROR 163 DATA WAS ECC CORRECTED BUT DOES NOT COMPARE WITH 
$2) ; WRITE BUFFER 
003412 073472 EMT 336 
003414 073760 EHT336 
003416 074056 EDT336 
003420 074146 EFT336 
353 
$8 sERROR 164 OPI SHOULD NOT BE SET 
003422 071622 EMT 164 
003424 073676 EHT1 
003426 074022 EDT) 
003430 074112 EFT 
356 
4 ERROR 165 IVC SHOULD NOT BE SET 
003432 071630 EMT165 
003434 073676 EHT1 
003436 074022 EDT1 
003440 074112 EFT 
359 
8 ERROR 166 1AE SHOULD NOT BE SET 
003442 071636 EMT 166 
003444 073676 EHT1 
003446 074022 EDT1 
003450 074112 EFT 
362 “ 
363 ERROR 167 NEM SHOULD NOT BE SET 


CZRMMAQ RMOS/3/ 
ERROR POINTER TAB 


384 


003452 


003502 
003504 
003506 
003510 


003540 


5 
003542 


2 
a 


000000 


071662 


074112 


071672 


071732 


; ERROR 


7; ERROR 


sERROR 


s ERROR 


ERROR 


s ERROR 


176 
EMT176 


UNUSED 


"ATA" NOT SET DURING RETURN TO CENTERLINE 


“ATA'' NOT SET BY OFFSET COMMAND 


RMER2 NOT INITIALIZED BY UNIBUS INIT 


RMER2 NOT INITIALIZED BY CONTROLLER CLEAR 


SELECTED DEVICE IS IN WRITE PROTECT 


CANNOT SET DIAGNOSTIC MODE 


SEQ 0057 


6 5 
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ERROR POINTER T SEQ 0058 

003544 073676 EHT1 
003546 074022 EDT1 
003550 074112 EFT1 

386 

44 sERROR 177 INCORRECT "'MOL'' STATUS DURING DIAGNOSTIC MODE 
003552 071740 EMT177 
003554 073676 EHT1 
003556 074022 EDT1 
003560 074112 EFT] 

389 

4 ZERROR 200 INCORRECT "'PIP’’ STATUS DURING DIAGNOSTIC MODE 
003562 071752 EMT200 
003564 073676 EHT1 
003566 074022 EDT1 
003570 074112 EFT! 

392 

39 ZERROR 201 INCORRECT ‘'WRL'' STATUS DURING DIAGNOSTIC MODE 
003572 071764 EMT201 
003574 073676 EHT1 
003576 074022 EDT1 
003600 074112 EFT 

395 

309 sERROR 202 INCORRECT ‘’SKI'' STATUS DURING DIAGNOSTIC MODE 
003602 071776 EMT202 
003604 073676 EHT1 
003606 074022 EDT1 
003610 074112 EFT 

398 

+44 ZERROR 203 INCORRECT "'DVC'' STATUS DURING DIAGNOSTIC MODE 
003612 072010 EMT203 
003614 073676 EHT1 
003616 074022 EDT1 
003620 074112 EFT 

401 

rH ERROR 204 "vv'' WAS NOT RESET BY MAINTENANCE UNIT READY 
003622 072022 EMT 204 
003624 073676 EHT1 
003626 074022 EDT1 
003630 074112 EFT1 

404 

0s ZERROR 205 SELECTED DEVICE HAS A PERSISTENT ‘'SKI'' ERROR 
003632 2040 EMT205 


07 
003634 073676 EHT1 


H 5§ 
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ERROR POINTER TABLE SEQ 0059 

003636 074022 EDT! 
003640 074112 EFT 

407 

rs sERROR 206 “"LBC'' DID NOT SET DURING DIAGNOSTIC MODE 
003642 072050 EMT 206 
003644 073676 EHT1 
003646 074022 EDT1 
003650 074112 EFT1 

419 

et sERROR 207 UNEXPECTED LOSS OF ‘'MOL"' = MEDIUM IS OFF LINE 
003652 072060 EMT207 
003654 073676 EHT1 
003656 074022 EDT1 
003660 074112 EFT 

413 

ot sERROR 210 UNEXPECTED LOSS OF VOLUME VALID - ‘‘vv'' = 0 
003662 072072 EMT210 
003664 073676 EHT1 
003666 074022 EDT1 
003670 074112 EFT1 

416 

tt ZERROR 211 UNEXPECTED MECHANICAL MOTION - ‘'PIP’’ = 1 
003672 072100 EMT211 
003674 073676 EHT1 
003676 074022 EDT1 
003700 074112 EFT 

419 

“30 ZERROR 212 UNEXPECTED DEVICE FAULT = ‘DVC'' = 1 
003702 072114 EMT212 
003704 073676 EHT1 
003706 074022 EDT1 
003710 074112 EFTI 

422 

ost ERROR 213 UNEXPECTED SEEK INCOMPLETE ERROR - ‘'SKI'' = 1 
003712 072130 EMT213 
003714 073676 EHT1 
003716 074022 EDT1 
003720 074112 EFT 

425 

sf ZERROR 214 DRIVE EXECUTED A RECALIBRATE WITH ERROR SET 
003722 072140 EMT214 
003724 073710 EHT2 
003726 074032 EDT2 


CZRMMAO rte tie + ie TST 1 


ERROR POINTER T 
003730 


003750 


003752 


003770 


003772 
004000 
004002 
004004 


004006 
004010 


004020 


074122 


074112 


072202 
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; ERROR 


; ERROR 


s ERROR 


ERROR 


; ERROR 


; ERROR 


7 ERROR 


EFT2 


216 


217 


DRIVE DID NOT DETECT ‘‘IVC'’ ERROR DURING RECALIBRATE 


INCORRECT “‘lvC'’ STATUS 


INCORRECT ‘‘IAE'’ STATUS 


INCORRECT ‘'WLE’’ STATUS 


INCORRECT ‘‘OPI'’ STATUS 


RM DID NOT DETECT RMR ERROR 


RM DID NOT DETECT PARITY ERROR ON MASSBUS CONTROL BUS 


SEQ 0060 


CZRMMAO RMOS/3/2 FCTNL TST 1 


ERROR POINTER TABLE 


004030 


004032 


004040 


004042 


004050 


004052 


004060 


004062 


004070 


004072 


004110 


000000 


000000 


000000 


000000 


000000 


000000 


000000 


000000 


000000 


000000 


000000 


000009 
0 


000000 
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ERROR 


ERROR 


s ERROR 


; ERROR 


ERROR 


; ERROR 


sERROR 


UNUSED 


UNUSED 


UNUSED 


UNUSED 


UNUSED 


UNUSED 


UNUSED 


SEQ 0061 


CZRMMAO RMOS/3/2 FCTNL TST 1 


ERROR POINTER TABLE 


004130 


004132 
004140 
004142 
004144 
004146 
004150 


004152 


004160 


004162 


004200 
491 


000000 


000000 


000000 
0 


000000 


000000 


000000 


000000 


000000 


000000 


000000 


000000 


000000 


000000 


000000 


ERROR 


s ERROR 


; ERROR 


; ERROR 


; ERROR 


; ERROR 


; ERROR 


233 


K 
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UNUSED 


UNUSED 


UNUSED 


UNUSED 


UNUSED 


UNUSED 


UNUSED 


SEQ 0062 


CZRMMAO RMOS/3/2 FCTNL TST 1 


ERROR POINTER TABLE 


000000 


000000 


000000 


000000 


000000 


000000 


; ERROR 


7 ERROR 


ERROR 


s ERROR 


s ERROR 


; ERROR 


;ERROR 


ERROR 


- 
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242 UNUSED 


243 UNUSED 


244 UNUSED 


245 UNUSED 


246 ATA’ NOT RESET BY GO WHEN “‘ERR’' = 0 


247 ATA’ NOT RESET BY WRITING RMAS 


250 ATA’ WAS RESET BY GO WHEN ‘ERR’ = 1 


251 PROGRAM INTERRUPT WAS NOT GENERATED 


SEQ 0065 


514 


004322 
004324 
004326 
004330 


CZRMMAO tte tie FCTNL TST 1 
ERROR POINTER TABLE 


074112 


072406 


; ERROR 


ERROR 


ERROR 


s ERROR 


ERROR 


ERROR 


; ERROR 


MACRO v03.01 11-APR-80 


5 
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PROGRAM INTERRUPT SHOULD NOT HAVE BEEN GENERATED 


OFFSET MODE WAS NOT RESET BY WRITING RMDC 


INCORRECT 


INCORRECT 


"“ILF*’ STATUS 


“ATA STATUS 


INCORRECT ““ILR’* STATUS 


INVALID IAE STATUS DURING SEARCH COMMAND 


“IVC WAS NOT DETECTED DURING SEARCH COMMAND 


SEQ 0064 


ge N 
— CZRMMAO RMOS/3/2 FCTNL TST 1 MACRO V03.01 11-APR-80 13:04:53 PAGE 7205 
| ERROR POINTER TABLE SEQ 0065 


004362 br ee30 EMT260 
004364 073676 EHT1 
004366 074022 EDT] 
004370 074112 EFT! 
536 
tA ZERROR 261 DRIVE EXECUTED SEARCH WITH ERROR SET 
004372 072462 EMT261 
004374 073676 EHT1 
004376 074022 EDT! 
004400 074112 EFT 
539 
rk sERROR 262 LBC’ ERROR NOT SET DURING DIAGNOSTIC MODE 
004402 072502 EMT262 
004404 073676 EHT1 
004406 074022 EDT1 
004410 074112 EFT1 
542 
ea sERROR 263 "SKI" ERROR DURING SEARCH COMMAND 
004412 072512 EMT263 
004414 073676 EHT1 
004416 074022 EDT1 
004420 074112 EFT1 
545 
328 ERROR 264 "IvC'' ERROR DURING SEARCH = LOST VOLUME VALID 
004422 072522 EMT264 
004424 073676 EHT1 
004426 074022 EDT1 
004430 074112 EFT 
548 
34 ERROR 265 ERRONEOUS IVC ERROR DURING SEARCH - VOLUME IS VALID 
004432 072542 EMT265 
004434 073676 EHT1 
004436 074022 EDT1 
004440 074112 EFT 
551 
23¢ ERROR 266 DEVICE FAULT (DVC) DURING SEARCH 
004442 072562 EMT266 
004444 073676 EHT1 
004446 074022 EDT1 
004450 074112 EFT 
ERROR 267 SKI SHOULD HAVE BEEN SET BECAUSE CYLINDER 


ADDRESS IS TOO LARGE 
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ERROR POINTER TABLE SEQ 0066 
004452 072574 EMT 267 
54 073676 EHTI 
004456 074022 EDT! 
074112 EFT] 
558 
44 ZERROR 270 OPI ERROR DURING SEARCH BECAUSE MOL = 0 
004462 Orgel? —MT270 
004464 073676 EHT1 
0044 07402? EDT! 
004470 07411° EFTI 
561 
562 sERROR 271 OPI ERROR DURING SEARCH BECAUSE ON CYLINDER 
ed ; DION'T DROP 
004472 072626 —EMT271 
004474 073676 EHT1 
004476 074022 EDT1 
004500 074112 EFTI 
565 
266 ZERROR 272 LOST MOL DURING SEARCH, OPI IS NOT SET 
072644 EMT272 
004504 073676 EHT1 
004506 07402 EDT1 
004510 07411 EFTI 
568 
44 ERROR 273 PIP STIL SET AFTER SEARCH 
004512 072662 EMT273 
004514 073676 EHT1 
004516 074022 EDT1 
004520 074112 EFT1 
571 
572 TERROR 274 PARITY ERROR OCCURRED WHILE WRITING REMOTE 
th 3 REGISTERS BUT MXF DID NOT SET 
004522 072700 EMT274 
004524 073676 EHT1 
004526 074022 EDT1 
530 074112 EFT 
575 
576 ZERROR 275 MXF ERROR - COMPOSITE ERROR OCCURRED BEFORE DATA 
ee 3 COMMAND STARTED 
004532 072716 EMT275 
004534 073676 EHT1 
004536 074022 EDT 
004540 074112 EFTI 


579 


“wn 


004622 
004624 


CZRMMAD anne Ste + oe TST 1 
ERROR POINTER T 


074112 


072762 


074112 


073002 


073050 
073676 


C 6 
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;ERROR 


ERROR 


ERROR 


s ERROR 


; ERROR 


ERROR 


; ERROR 


276 


304 
EMT 304 
EXT! 


SEQ 0067 
A A ERROR DURING DATA TRANSFER BECAUSE ‘MOL'’ WAS 


“OP1"’ ERROR DURING DATA TRANSFER BECAUSE 1) ON 
CYLINDER DION'T DROP OR 2) SEARCH TIMED OUT OR 
3) RUN TIMED OUT 


“IVC'’ ERROR DURING DATA TRANSFER BECAUSE VOLUME 
WAS NOT VALID 


gots “"IvC"’ ERROR DURING DATA TRANSFER = VOLUME 
VALI 


“ILR’’ ERROR DURING DATA TRANSFER 


“ILF*’ ERROR DURING DATA TRANSFER 


RMR’ ERROR DURING DATA TRANSFER 
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ERROR POINTER TABLE SEQ 0068 

004626 074022 EDT} 
004630 074112 EFTI 

605 

os ZERROR 305 INCORRECT ““IAE’’ STATUS DURING DATA TRANSFER 
004632 073062 EMT 305 
004634 073676 EXT] 
004636 074022 EDT! 
004640 074112 EFTI 


608 
$09 ZERROR 306 "SKI ERROR DURING DATA TRANSFER 
004642 073074 EMT 306 
004644 073676 EHT] 
004646 074022 EDT) 
004650 074112 EFT 
611 
Hh ZERROR 307 DRIVE DID NOT DETECT SK] ERROR DUE TO CYLINDER 
004652 073104 —EMT307 
004654 073676 EHT1 
004656 074022 EDTI 
004660 074112 EFT 
614 
Hy sERROR 310 DEVICE FAULT DURING DATA TRANSFER 
004662 073124 —EMT310 
004664 073676 EHT1 
004666 074022 EDT1 
004670 074112 EFT 
617 
18 ZERROR 311 LOSS OF BIT CLOCK DURING DATA TRANSFER 
004672 073136 —MT311 
004674 073676 EHT] 
004676 074022 EDT] 
004700 674112 EFT1 
620 
621 ZERROR 312 LOSS OF SYSTEM CLOCK DURING DATA TRANSFER 
004702 073150 EMT312 
004704 073676 EHT1 
004706 074022 EDT! 
004710 074112 EFT 
623 
oct TERROR 313 UNSAFE ERROR DURING DATA TRANSFER (DVC = 0) 
004 EMT313 


CZRMMAQ RMOS/3/2 FCTNL TST 1 


ERROR POINTER TABLE 


004720 074112 


004730 


004732 0732 


004740 0741 


004742 073226 


004750 074112 


004752 073240 


004762 073250 
004764 073676 
004766 074022 
004770 074112 
004772 073260 
004774 073676 
004776 074022 
005000 074112 
005002 


005010 


6 
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; ERROR 


; ERROR 


ERROR 


; ERROR 


ERROR 


; ERROR 


; ERROR 


EFT 


DRIVE TIMING ERROR DURING DATA TRANSFER 


WRITE LOCK ERROR 


ERRONEOUS WRITE LOCK ERROR 


HEADER CRC ERROR DURING DATA TRANSFER 


FORMAT ERROR DURING DATA TRANSFER 


HEADER COMPARE ERROR DURING DATA TRANSFER 


HEADER ERRORS SHOULD NOT BE SET 


SEQ 0069 


CZRMMAQ RMOS/3/2 FCTNL TST 1 


ERROR POINTER TABLE 


005020 


005022 


005050 


005052 


005060 


005062 


005070 


005072 


005100 


074112 


073332 


F 
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7 ERROR 


ERROR 


; ERROR 


; ERROR 


ERROR 


; ERROR 


; ERROR 


325 
th 


DATA CHECK ERROR DURING DATA TRANSFER 


CORRECTABLE DATA CHECK ERROR DURING DATA TRANSFER 


UNCORRECTABLE DATA CHECK ERROR DURING DATA TRANSFER 


DATA PARITY ERROR DURING READ COMMMAND 


OFFSET MODE NOT RESET BY WRITE COMMAND 


DATA PARITY ERROR DURING WRITE COMMAND 


WRITE CLOCK FALURE DURING WRITE COMMAND 


SEQ 0070 


G 6 
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ERROR POINTER TABLE SEQ 0071 
668 
re ZERROR 332 DATA LATE ERROR DURING DATA TRANSFER 
005102 073404 EMT332 
005104 073676 EHT1 
005106 074022 EDT1 
005110 074112 EFT P 
671 
ore ERROR 333 PIP STIL SET AFTER DATA TRANSFER = SKI = 0 
005112 073416 EMT333 
005114 073676 EHT1 
005116 074022 EDT1 
005120 074112 EFTI 
674 
or ZERROR 334 LOST MOL DURING DATA TRANSFER = OPI = 0 
005122 073434 EMT 334 
005124 073676 HT] 
005126 074022 EDT1 
005130 074112 EFT1 
677 
ee ZERROR 335 LOST VOLUME VALID DURING DATA TRANSFER - IvC = 0 
005132 073452 EMT335 
005134 073676 EHT1 
005136 074022 EDT1 
005140 074112 EFTI 
680 
+H ZERROR 336 DATA READ DOES NOT COMPARE WITH DATA WRITTEN 
005142 073472 EMT 336 
005144 073760 EHT 336 
005146 074056 EDT336 
005150 074146 EFT 336 
683 
686 ZERROR 337 WRITE CHECK ERROR NOT DETECTED 
005152 073502 EMT 337 
005154 073772 EHT 337 
005156 074066 ED1337 
005160 074156 EFT337 
686 
687 sERROR 340 WRITE CHECK ERROR AT UNEXPECTED ADDRESS 
005162 073512 EMT 340 
005164 073760 EHT336 
005166 074056 EDT $36 
005170 074146 EFT336 


689 


CZRMMAO RMOS/3/2 FCTNL TST 1 


ERROR POINTER TABLE 


690 
691 


005200 


005202 
005204 
005206 
005210 


005230 


005232 


005240 


005242 


005250 


005252 


005260 


074112 


073556 


H 
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;ERROR 


ERROR 


7 ERROR 


s ERROR 


7; ERROR 


ERROR 


; ERROR 


; ERROR 


344 


EMT344 
EHT 344 
EDT344 
EFT344 


INCORRECT DATA DURING WRITE CHECK ERROR 


“IVC'' ERROR NOT DETECTED DURING DATA TRANSFER 


“FER'' NOT DETECTED DURING DATA TRANSFER 


"HCE" NOT DETECTED DURING DATA TRANSFER 


“BSE’’ NOT DETECTED DURING DATA TRANSFER 


HEADER ERROR WAS DETECTED W/ HCI SET 


DATA TRANSFER NOT ABORTED W/ COMP ERROR SET 


LOST VOLUME VALID DURING SEARCH = “*IvC"' 


= 9 


SEQ 0072 


— CZRMMAO RMOS/3/2 FCTNL TST 1 


ERROR POINTER TABLE 


2 
005262 


074112 


073654 
000000 
000000 
000000 
073660 


074176 


073670 


074112 


1 6 
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sERROR 351 ATA’ DID NOT SET DURING SEARCH 


ERROR 352 PROGRAM TIMEOUT WHILE TESTING RMLA 


sERROR 353 LOOK AHEAD TEST FAILS 


ERROR 354 BSE SHOULD NOT BE SET 


;PUT ERROR TABLE HERE 


SEQ 0073 


CZRMMAO RMO5/3/2 
ERROR TABLE USAG 


OCONAYWE WH —ODONAUFS WH —"ODOONCU EWR 


PORSPIMPYIPIPI DPN AY st ss os os es 


— TST 1 


J 6 
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-SBTTL ERROR TABLE USAGE 


;THE ERROR TABLE ABOVE CONSISTS OF FOUR WORD ENTRIES FOR EACH ERROR 
;NUMBER, beboe 


: EMT = ERROR MESSAGE TABLE ADDRESS 
; EHT = ERROR HEADER TABLE ADDRESS 
: EDT = ERROR DATA TABLE ADDRESS 

; EFT = ERROR FORMAT TABLE ADDRESS 


sTHE EMT ENTRY IS THE ADDRESS OF THE TABLE OF ERROR MESSAGE STRINGS 

sFOR THE PARTICULAR ERROR. EACH ERROR MESSAGE TABLE LISTS THE ADDRESS 
;OF ONE OR MORE ERROR MESSAGE STRINGS WHICH ARE TO BE FORMATTED AND 

: TYPED BY THE ERROR TYPE SUBROUTINE. IF THE EMT ENTRY IS ZERO, THERE IS 
sNO MESSAGE TO BE TYPED FOR THE ERROR. 


sSIMILARLY, THE EHT, EDT, AND EFT ENTRIES ARE ADDRESSES OF TABLES 

s0F HEADER, DATA AND FORMAT INFORMATION FOR A GIVEN ERROR. EACH ENTRY 
;IN_ THE ERROR HEADER TABLE MAY OR MAY NOT HAVE AN ASSOCIATED LINE OF 
sDATA, HOWEVER, EACH DATA LINE MUST HAVE AN ASSOCIATED FORMAT AND 
sHEADER. THAT JS, A HEADER LINE MAY BE PRINTED wITHOUT ANY DATA, 

sBUT A DATA LINE IS NOT PRINTED WITHOUT A HEADER, AND EACH DATA LINE 
s:MUST ALSO HAVE A FORMAT. 


> IN SUMMARY, 


: EACH NONZERO ENTRY IS THE ADDRESS OF A TABLE, 
: EACH TABLE IS A LIST OF ADDRESSES WHICH DEFINES THE LOCATIONS 
: OF MESSAGE STRINGS, HEADERS, DATA OR FORMAT. 


SEQ 0074 


kK 
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ERROR TABLE USAGE SEQ 0075 


} ;THIS ROUTINE HANDLES UNEXPECTED TIMEOUTS 
3 005332 011600 BADTMO: MOV (SP) ,RO s;SAVE PC WHERE THE TIME OUT OCCURED 
4 005334 005740 TST =(RO) ADJUST PC <2 
5 005336 022626 CMP (SP)+,(SP)+ ;RESTORE STACK a 
6 005340 104401 005346 TYPE ,65$ iT YPE ASCIZ STRING 
005344 000417 BR 64$ :GET OVER THE pects 
::05$: .ASCIZ <CRLF>/UNEXPECTED BUS TIMEOUT, PC=/ 
005404 64$: 
7 005404 010046 MOV RO,-(SP) ;SETUP FOR TYPING OUT PC 
8 005406 104402 TYPOC 
9 005410 000240 NOP ;PUT "HALT(O)" INSTRUCTION HERE IF YOU WISH 
7 ;TO STOP ON UNEXPECTED TIMEOUT. 
\¢ SBTTL START OF PROGRAM 
14 005412 000240 START: NOP 
15 005414 005227 000000 INC #0 :TTY LOOP, WAIT FOR INCREMENT 
16 005420 001375 BNE 274 OF WORD 
4 005422 000005 RESET RESET THE WORLD 
19 -SBTTL_ INITIALIZE THE COMMON TAGS 
3;CLEAR THE COMMON TAGS (SCMTAG) AREA 
005424 012706 001114 MOV #$C ° 3:FIRST LOCATION TO BE CLEARED 
005430 005026 CLR + +3 CLEAR MEMORY LOCATION 
005432 022706 001154 CMP MSWR RO 3 DONE? 
005436 001374 io . stat ;;LOOP BACK IF NO 
005440 012706 001100 #STACK,SP :;SETUP THE STACK POINTER 
5 INITIALIZE A FEW VECTORS 
005444 012737 063210 000020 MOV WSSCOPE ,QMIOTVEC ;;10T VECTOR FOR SCOPE ROUTINE 
005452 012737 000340 000022 MOV #340 ,a#1OTVEC+2 s:LEVEL 7 
005460 012737 063710 000030 MOV #SERROR, a#EMTVEC eee VECTOR FOR ERROR ROUTINE 
005466 012737 000340 000032 MOV #340 ,a#EMTVEC+2 ;:LEVEL 7 
005474 012737 065450 000034 MOV Wg TRAP, a#TRAPVEC : TRAP VECTOR FOR TRAP CALLS 
005502 012737 000340 000036 MOV #340, a#TRAPVEC+2;LEVE 
005510 012737 065556 000024 MOV #SPWRON, a#PWRVEC i POWER FAILURE VECTOR 
005516 012737 000340 000026 MOV #340, a#PWRVEC+2 i VEL 7 
005524 013737 042172 042164 MOV SENDCT,SEOPCT SEY UP END-OF -PROGRAM COUNTER 
005532 005037 001206 CLR STIMES PEINITIALIZE NUMBER OF ITERATIONS 
005536 005037 001210 CLR SESCAPE CLEAR THE ESCAPE ON ERROR ADDRESS 
005542 112737 000001 001131 MOVB 4 - SERMAX ;;ALLOW ONE ERROR PER TEST 
005550 012737 005550 001122 MOV #. ,SLPADR Hy Mt THE LOOP ADDRESS FOR SCOPE 
005556 012737 005556 001124 MOV #. ,SLPERR ;SETUP THE ERROR LOOP ADDRESS 
23SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS 
;;EQUAL TO A ‘'=1"', SETUP FOR A SOFTWARE SWITCH REGISTER. 
05564 013746 000004 MOV @#ERRVEC,-(SP) ;;SAVE ERROR VECTOR 
005570 012737 005624 000004 MOV #64% ,AFERRVEC Hts 2 UP ERROR VECTOR 
005576 012737 177570 001154 MOV #OSWR, SUR TUP FOR A HARDWARE et aren eren 
05604 012737 177570 001156 MOV #DDISP, atari :;AND A HARDWARE DISPLAY R 
005612 022777 177777 173334 CMP #-1,aSWR :TRY TO REFERENCE HARDWAR UR 
005620 001012 BNE 668" ;:BRANCH IF NO TIMEOUT TRAP OCCURRED 
::AND THE HARDWARE SWR = 
005622 000403 BR 65$ ;;BRANCH IF NO TIME 
005624 012716 005632 64$: MOV #65$, (SP) ::SET UP FOR TRAP RETURN 
005630 000002 RT] 
005632 012737 000176 001154 65%: MOV WSWREG, SWR ::POINT TO SOFTWARE SwWR 
005640 012757 000174 001156 MOV #D1SPREG,DISPLAY 


6 
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CZ 
INITIALIZE THE COMMON TAGS SEQ 0076 
005646 012637 000004 66$: MOV (SP)*,@#ERRVEC ;;RESTORE ERROR VECTOR 
005652 005037 001230 CLa SPASS CLEAR PASS COUNT 
005656 132737 000200 001243 B1T8 #WAPTSIZE,SENVM siTEST USER SIZE UNDER APT 
05664 001403 BEQ 67$ 37 YES,USE NON-APT SWITCH 
Bp 2686 012737 001244 001154 ore MOV #SSWREG, SWR 7;NO,USE APT SWITCH RECISTER 
20 SETUP “‘TIMEOUT’’ TRAP VECTOR FOR UNEXPECTED BUS TIMEOUTS 
21 005674 012737 005332 000004 MOV WBADTMO,ERRVEC ;SETUP FOR UNEXPECTED TIMEOUT 
22 005702 012737 000300 000006 MOV #PR6, ERRVECSD LEV EL 6 
23 005710 012746 000300 MOV #PR6.=(SP) s7PUT NEW PS ON STACK 
005714 012746 005722 MOV #68$ ,-(SP) ;7PUT NEW PC ON STACK 
005720 000002 RT] 3;POP NEW PC AND PS 
% 005722 68$: 
25 SBTTL TYPE PROGRAM NAME 
>: TYPE THE NAME OF THE PROGRAM IF FIRST PASS 
005722 005227 177777 INC a-) scFIRST TIME? 
005726 001056 BNE 69$ ; ;BRANCH 1F NO 
005730 022737 042326 000042 CMP #SENDAD ,a#42 sACT=11? 
005736 001452 80 69% i :BRANCH IF YES 
005740 104401 006006 TYPE , 70% ;TYPE ASCIZ STRING 
.SBTTL er VALUE FOR SOFTWARE shiver REGISTER 
005744 005737 000042 #42 7;ARE WE RUNNING UNDER XXDP/ACT? 
005750 001012 BNE att — IF YES 
005752 123727 001242 000001 CMPB SENV,#1 ;;ARE WE RUNNING UNDER APT? 
005760 001406 BEQ 71$ [BRANCH IF YES 
005762 023727 001154 000176 CMP SWR, #SWREG + SOF TWARE SWITCH REG SELECTED? 
5770 001005 BNE 72% ;;BRANCH IF Ni 
5772 104407 GTSwWR 77:GET SOFT=SWR SETTINGS 
005774 000403 BR 72% 
003776 112737 000001 001150 oye: MOVB #1,SAUTOB 7:SET AUTO-MODE INDICATOR 
006004 000427 &R 69% T OVER THE ASCIZ 
3,708: .ASCIZ <CRLF>@CZRMMAOD - *anO5/ 579 FUNCTIONAL TEST, PART la<CRLF> 
- 006064 69s: 
27 THE FOLLOWING FINDS OUT THE PROGRAM CONTROL MODE: 
38 PAPER TAPE (MANUAL), ACT11, XXDP CHAIN OR DUMP 
30 006 005037 001330 CLR XXDP :CLEAR "XXDP* LOAD DEVICE STORAGE 
31 006070 122737 000016 000041 CMPB #16,a841 ;LOADED FROM AN RMO5S/3/2 ? 
32 006076 001160 BNE 3$ BRANCH IF NOT 
33 006100 013737 000040 001330 MOV #40, XxDP 3GET bevice INDICATOR AND NUMBER 
34 006106 122737 000007 001330 CMPB #7, XxDP iS 1T A VALID NUMBER 
35 006114 103002 BHIS 1$ sYES 
36 006116 105037 001330 CLRB xxXDP :NO, DEFAULT TO DRIVE 0 
37 006122 005737 000042 1$: TST aa42 [CHAIN MODE OR ACT11 AUTO ACCEPT ? 
38 006126 001425 BEQ 23 ;BR IF NEITHER 
39 006130 104401 006136 TYPE 74% i: TYPE ASCIZ STRING 
006134 000412 BR 73$ :GET OVER THE ASCIZ 
-:74$: .ASCIZ <CRLF>/NOT TESTING DRIVE / 
006162 73$: 
40 006162 005046 CLR -(SP) CLEAR WORD ON STACK 
41 006164 113716 001330 MOVB XXDP, (SP) ;GET DRIVE ADDRESS 
42 006170 104403 TYPOS TYPE THE ADDRESS 
43 006172 001 BYTE 1 ;ONLY 1 CHARACTER 
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GET VALUE FOR SOFTWARE SWITCH REGISTER SEQ 0077 
44 006173 000 .BYTE 0 : SUPRESS LEADING ZEROS 
45 006174 1064601 001217 i YPE SCRLF LF 
“6 006200 000517 BR 8$ ‘CET NUMBER OF DRIVES 
48 006202 005227 177777 2$: INC #1 sFIRST TIME THRU HERE ? 
49 006206 001114 BNE 3$ ; 
50 006210 104401 006216 TYPE 76% is TYPE ASCIZ STRING 
se mete - 768: OnsciZ cat /10 TEST phice F ssaee == ee 
. < 2 Vv 
51 Hineat4 005046 is: CLR (SP) CLEAR WORD ON STAC 
L - 7CL K 
52 006240 113716 001330 MOVB = KKDP,, (SP) [GET DRIVE ADDRESS 
53 006244 104403 TYPOS ; TYPE DRIVE ADDRESS 
54 006246 001 .BYTE 1 [ONLY 1 CHARACTER 
55 006247 000 ‘BYTE 0 [SUPRESS LEADING ZEROS 
56 006250 104401 006256 TYPE 788 iz TYPE ASCIZ STRING 
006254 000431 BR ?7$ [GET OVER THE ASCIZ 
006340 pices: eASCIZ /, HALT PROGRAM, * REMOVE RRDP PACK AND REPLACE IT/<CRLF> 
57 006340 104401 006346 TYPE 79% ie TYPE ASCIZ STRING 
006344 000435 BR $ S:GET OVER THE ASCIZ 
906440 om e*3C1Z2 /WITH A WORK PACK. CLEAR vacation 40 AND RESTART PROGRAM. /<CRLF> 
61 ;CHECK FOR AUTO at OR STANDLONE Rinna. 
62 006440 105737 001150 TSTB  $AUTOB RUNNING IN AUTO MODE ? 
63 006444 001515 BEQ STANDALONE :BR IF NO 
64 006446 012737 000377 001300 MOV #377, SDE VM [SET DEVICE MAP FOR ALL DRIVES 
66 ;PROGRAM IS RUNNING IN AUTO MODE - SEE IF SIZING IS ALLOWED 
67 006454 KSIZ: 
68 006454 132737 000200 001243 BI1TB #B1T7,SENVM sSIZING ALLOWED ? 
69 006462 001075 BNE 7$ NO 
71 006464 005001 CLR R1 sSTART FROM DRIVE 0 
72 006466 013700 001276 MOV SBASE RO [LOAD THE BASE ADDRESS 
006472 136137 067146 001300 1S: BITB  ATNTBL(R1),$DEVM :1S DEVICE PRESENT IN MAP ? 
006500 001462 BEQ 6$ BR IF 
76 006502 012737 066745 006644 MOV #LODEV,5$ ;GET ADDRESS OF LOAD DEVICE MESSAGE 
77 006510 005737 001330 TST XXDP LOADED FROM RMO5/3/2 ? 
78 006514 001403 BEQ 2$ NO 
79 006516 123701 001330 CMPB —s- XXDP, RI “1S THIS THE DRIVE ? 
80 006522 001435 BEQ 3$ TYES, TRY NEXT DRIVE 
82 006524 012760 000040 000010 2s: MOV WCLR,RMCS2(RO) CLEAR MASS BUS 
83 006532 010160 000010 MOV R1,RMCS2(RO) LOAD THE DRIVE ADDRESS 
84 006536 005760 000012 TST RMDS (RO) sTRY TO ACCESS AN RM DRIVE REGISTER 
85 tess 012737 066765 006644 MOV #NOTPRS,5$ GET ADDRESS OF NOT PRESENT MESSAGE 
86 006550 032760 010000 000010 BIT WNED,RMCS2(RO) :1S DRIVE PRESENT ? 
87 006556 001017 BNE 38 ‘BR IF a 
88 006560 012737 067002 006644 MOV #NOTAVL,5$ [GET ADDRESS OF AVAILABLE MESSAGE 
89 006566 032760 004000 000000 BIT SDVA-RACS1 (RO) ils DRIVE AVAILABLE ? 
90 006574 001410 BEQ 3$ NO 
91 006576 012737 067021 006644 MOV #OFFLIN, 5$ ‘err ADDRESS OF OFF jtINE MESSAGE 
92 006604 032760 010000 000012 BIT #MOL.RMDS(RO) :1S MEDIUM ON LINE ? 
93 006612 901401 BEQ 3$ :BR IF NO 
94 006614 000414 BR 6$ 


aon 


ee ed ed ct ee ee ae ce ceed et ae ee eee ed 
SSEScSs 
WEFWN—ODOONOUF Wr 


— SS tt OOO 


2 FCTNL TST 1 


000000 
005201 
020127 
003706 


ee 4 


001376 
000137 


000007 


001217 


007604 
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OFTWARE SWITCH REGISTER 


ATNTBL(R1) /SDEVM 
-SCRLF 


:CLEAR DEVICE FROM BIT MAP 
;TYPE "DRIVE' 


+: SAVE R1 FOR TYPEOUT 
3360 TYPE--OCTAL ASCII 
ans 2 DIGIT(S) 

i = Ay bes ia 


YPE ERROR MESSAG 
‘ADDRESS OF MESSAGE GOES HERE 


; INCREMENT THE DRIVE _—— 
TALL DRIVES ARE CHECKED ? 
;BRANCH IF NOT 


sCR-LF 
; THESE TWO LOOPS ARE ADDED TO 
;WAIT FOR TTY TO FINISH TYPING. 


; JUMP TO COMMON START 


SEQ 0078 


CZRMMAO RMOS/3/2 FCTNL TST 1 


8 7? 
MACRO VO03.01 11-APR-80 13:04:53 PAGE 10 
STANDALONE INPUT ROUTINES 


SEQ 0079 


an 


1 .SBTTL STANDALONE INPUT ROUTINES 
, 006700 STANDALONE : 
é 006700 004737 064120 JSR PC, STKINT ZINITIALIZE CONSOLE 
6 006706 005227 177777 INC #-1 sFIRST TIME THRU HERE ? 
i 006710 001426 BEQ 3$ sYES !! 
A ener i see IF THE USER WANTS TO KEEP SAME DEVICES FOR TESTING 
11 006712 104401 066304 TYPE ,CNSLOO :MAINTAIN PREVIOUS PARAMETERS ? 
12 006716 104411 RDCHR :GET RESPONSE 
13 006720 012637 00117 MOV (SP)+,$TMP1 [ECHO RESPONSE 
14 006724 104401 001176 TYPE STMPi 
15 006730 123727 001176 000131 CMPB Ss STP 1, a" Y sYES RESPONSE ? 
16 006736 001004 BNE 2$ =NO!! 
17 006740 104401 001217 TYPE SCRLF > CR=LF 
18 006744 000137 007604 JMP CMNSTART [KEEP PREVIOUS PARAMETERS 
20 006750 123727 001176 000116 2%: CMPB es STMP1,#°N :NO RESPONSE ? 
21 006756 001427 BEQ 5$ ‘YES, GET NEW PARAMETERS 
22 006760 104401 066701 TYPE CNSLOB :NO, TYPE ' ILLEGAL INPUT ° 
33 006764 000752 BR is :TRY AGAIN 
25 -SEE 1F OPERATOR WANTS HELP TEXT 
26 006766 S$: 
27 006766 104401 066220 TYPE »MSHELP sWANT HELP ? 
28 006772 104411 DCH :GET RESPONSE 
29 006774 012637 001176 MOV (SP)+,$TMP1 ‘SAVE AND ECHO RESPONSE 
30 007 104401 001176 TYPE $iMP 
31 007 123727 001176 000131 CMPBs«STMP1,a#'Y :WAS IT A YES RESPONSE ? 
32 007012 001407 BEQ 4 ; 
33 0070146 123727 001176 000116 CMPB ss STMP'1,#'N ‘WAS IT A NO RESPONSE ? 
34 007022 001405 BEQ 5$ YES 
35 007024 104401 066701 TYPE CNSLO8 sNO, TYPE *° ILLEGAL INPUT’ 
36 007030 000756 BR 8$ :TRY AGAIN 
37 007032 104401 103640 4$: TYPE /HELP ‘YES = TYPE HELP TEXT 
39 “SEE IF USER WANTS TO CHANGE ADDRESSES 
40 007036 §$: 
41 007036 104401 001217 TYPE ,SCRLF sCR-LF 
42 007042 104401 066251 TYPE -UBUSQST ‘WANT TO CHANGE ADDRESS ? 
43 007046 104411 RDCHR :GET RESPONSE 
44 007050 012637 001176 MOV (SP)+,$TMP1 :SAVE AND ECHO RESPONSE 
45 007054 104401 001176 TYPE STMPi 
46 007060 123727 001176 000131 CMPB «SMP, #'Y sWAS IT A YES RESPONSE ? 
47 007066 001407 BEQ rs 3 YES 
48 007070 123727 001176 000116 CMPB ss STMP1,#'N ‘WAS IT A NO RESPONSE ? 
49 007676 001525 BEQ 12$ YE 
50 007100 104401 066701 TYPE CNSLO8 :NO, TYPE * ILLEGAL INPUT ° 
31 007104 000756 BR §$44 ‘TRY AGAIN 
33 saves jDIALOGUE TO CHANGE THE UNIBUS ADDRESS, VECTOR ADDRESS AND INTERRUPT PRIORITY 
55 007106 104401 066337 TYPE CNSLO1 : TYPE CURRENT BUS ADDRESS 
$6 007112 013746 001276 MOV $BASE,-(SP) >:SAVE $BASE FOR TYPEOUT 
007116 104402 TYPOC $:G0 TYPE--OCTAL ASCII(ALL DIGITS) 


CZRMMAO RMOS/3/2 F 
STANDALONE INPUT R 


SSSSSSSSSSSS SSSSSSSSS 
SENSNSENSAENSES NSEAFERSRS 


4 

8 

59 

60 

¢: 

os 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 00 

80 00 

81 00 

82 

83 007236 
84 007242 
85 007244 
86 007250 
87 007252 
88 007254 
89 007256 
90 007260 
91 007262 
92 007264 
93 007265 
94 007266 
95 007272 
96 007274 
97 007300 
98 007302 
99 007310 
100 007312 
101 007316 
102 007320 
103 oth 34 
104 0073 
105 907334 
106 007340 
107 007344 
108 

109 

110 007352 
111 007352 
112 007356 
113 007360 


z 


ma 


T 


NN ENE ORS 
Wtoowew-O - 
NO-NO 


——O— O 
e=se 8 
Soueee 
WN Oo — 


oa 
wEr 


Mm—rw 
NEO SOO NOS 


SLLS=sS 


-—-— 2 
~m 
NE UNNI 


—_ —_ 
e Sze 
SS S35 


Ss WP AAAAAS — 


001 


001272 


066211 
001176 
001000 
066437 
001176 
066473 
001273 
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001176 


001276 


001176 


001272 


000007 


001273 


7$: 
8$: 


9$: 


10$: 


118: 


DI 
12$ 


swe FD 

:GET NEW BUS ADDRESS 

; CARRIAGE RETURN ? 
:YES-SKIP TO NEXT ENTRY 
:BASE ADDRESS IN 1/0 PAGE ? 


re 

; TYPE WARNING MESSAGE 
;TRY AGAIN 

:STORE NEW BUS ADDRESS 


GET CURRENT VECTOR ADDRESS 
sTYPE 3 DIGITS 

; SUPPRESS LEADING ZEROS 

s TYPE er ? fr 

GET NEW VECTOR ADDRESS 
CARRIAGE RETURN? 


sYES-SKIP TO NEXT ENTRY 
ao ADDRESS < 1000 ? 
. Y ! 


[TYPE WARNING MESSAGE 
sRETRY 
[STORE NEW VECTOR ADDRESS 


;GET CURRENT BR LEVEL 


ONLY 1 DIGIT 
SUPPRESS LEADING ZEROS 


:GET NEW PRIORITY 
;CARRIAGE RETURN ? 
sYES-SKIP TO NEXT ENTRY 
LEGAL PRIORITY ? 


sYES!! 
TYPE WARNING MESSAGE 
N 


7 TRY AGAI 
STORE NEW PRIORITY 


4 ah TIME THRU ? 


TYPE QUES 

RDOCT 

MOV (SP)+, STMPI 

BEQ 

CMP #160000 ,STMP1 

BLOS 7$ 

TYPE »CNSLO2 

BR 6$+4 

MOV STMP1,SBASE 

TYPE »CNSLO3 

CLR -($P) 

MOvB SVECT1, (SP) 

TYPOS 

-—BYTE 3 

BYTE 0 

TYPE QUES 

RDOCT 

MOV (SP)+,STMP1 

BEQ $ 

CMP #1000,$TMP1 

BHI 9$ 

TYPE CNSLO4 

BR 

MOVB STMP1,S$VECTI 

TYPE »CNSLOS 

CLR - ) 

MOVB SVECT141, (SP) 

ASR (SP) 

ASR (SP) 

ASR (SP) 

ASR (SP) 

ASR (SP) 

TYPOS 

-BYTE 1 

BYTE 0 

TYPE QUES 

RDOCT 

MOV (SP)+,STMP1 

BEQ 1 

CMP STMP1,#7 

BLT 118% 

TYPE »CNSLO6 

BR 10$ 

ASL STMP1 

ASL STMP1 

ASL STMP1 

ASL STMP1 

ASL STMP1 

MOvVB STMP1 SVECTI¢1 
ALOGUE TO INPUT DEVICE NUMBERS 

INC a-1 

BNE 13$ 

TYPE ~CNSLO? 


:;BR IF NO 
; TYPE INPUT INSTRUCTIONS 


SEQ 0080 


“on 


—™~ 
> 
~ & 


PORIRIRS REPROD Oe 


WAAL Awww 


iy 
i 


~ 
x3¢ 


SNSFERS 


7434 


7474 


ssss sessssss sssssssses 
S E 


SNA 
uw w 


36 
7540 


ee ee el el ee ee ee ee 
S88S888S SSSSSsss 
4 
™ 


alah sh 4h sl ee ae ee ee ae ae ae ae ae nl”, | 


SS NN Ae NNN ee 


Roo 


Sve 
Www 


NEN EN ONE 
WNro 


3 


Sscs 
N= 
—WwnN 
im ~m 
Se NN ONO 


o—-— 
Wee 
NEN EE ENOS 


orm 


o-oo OO _ Oo 
Seecs 
ep 
Se NNN —— 


mn 


001176 
001176 


066215 
001176 
001176 


001176 
066701 
001176 
177770 
067146 
000377 


001217 
006454 


? 
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000101 


001300 


000015 


000060 


00067 


000015 


000060 
000067 


001300 
001300 


15$: 


168: 


17$: 


188: 


19$: 


SCRLF 
DEVM 
/MSDRVS 
(SP)+,$TMP1 
STMP1 a°A 
158 

#397, SDEVM 
xS12 
STMP1,#CR 
17$ 

STMP! 
$TMP1,#°0 
17$ 
STMP1,#°7 


18$ 
17$ 


(SP)+,$TMP1 
STMP1,#CR 


1 
STMP1,#'7 
18$ 
,CNSLO8 
14% 


STMP1,R1 
#*C7,R1 


ATNTBL(R1) ,SDEVM 


#377, SDEVM 
16% 


, SCRLF 
XSIZ 


7 CR-LF 

;CLEAR DEVICE MAP 
;TYPE "DRIVE(S): ° 
:GET RESPONSE 
-1S INPUT a ? 


‘YES, TYPE "‘ALL'’ AND 


GO 
;SET DEVICE MAP FOR ALL DRIVES 


SAUTO SIZE. 
SCARRIAGE RETURN ? 
7Y 

[ECHO RESPONSE 
[NUMBER < 0 ? 
YES 

;NUMBER > 7 ? 
SILLEGAL INPUT 


;GET RESPONSE 
— RETURN ? 


3s TYP r 
;ECHO RESPONSE 

;NUMBER < 0 ? 

YES 

;NUMBER > 7 ? 

NO 

TYPE *' 71LLEGAL INPUT" 
;RETRY 


:R1 = DRIVE NUMBER 
. :SET DEVICE IN MAP 


CRLF 
[G0 SIZE DEVICES 
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STANDALONE INPUT ROUTINES SEQ 0082 


WR —OOONAUS WH —-OOOnOUF WN 
Soooooooooooooo°oo 
COoooooooooooooo 
SAIN NN Ns ~ 
AOOAAO 
Wn & ww 
Sreooenws oO 


PRORIPURY — ss 


007676 
007712 


007716 
007716 


007756 
2° 007756 


005011 
004737 
000413 


104000 
104401 
000405 


000000 
000765 


005737 


112737 


000240 


000137 
105037 


012746 


001300 


000001 


067146 
000002 


044644 


007700 


000042 
001242 
001154 


000001 


001300 
000042 


005412 
042136 


001116 


010036 


000001 


000001 
000176 


001150 


;ASSEMBLE TEST QUE FROM DEVICE MAP 
CMNSTART 


2$: 


3$: 


:S1ZE FOR CLOCK 
JSR 


4$: 


66$: 
67$: 


2$: 


BR 


EMT 
TYPE 


BR 
-ASCIZ 
HALT 
BR 


’ 
’ 


R 
R2,RO 
2$ 


R2 
3$ 
R3 
1$ 
(R1) 


PC,SIZCLK 
5$ 


,65$ 


64% 
<CRLF>/PROG HLT/ 


4$ 


SDEVM,RO 
#TSTQUE+2,R1 
TQUE 


R3,(R1) 
ATNTBL(R3),1(R1); 
#2,R1 


ne DEVICE MAP 
ADDRESS OF FIRST ENTRY IN QUE 
INITIALIZE a POINTER 
:R2 = DEVICE POINTER 
R DEVICE NUMBER 
ENO. THIS DEVICE IN MAP ? 


;YES = ENTER DEVICE g¥> IN QUE 
ENTER ATTENTION BIT IN QUE 
sADVANCE ENTRY POINTER 

: ADVANCE DEVICE POINTER 

aoe ALL DEVICES ? 


;YE 
; ADVANCE at ies NUMBER 
sENTER NEXT DEVICE 

: TERMINATE 733) QUE 


sSEE IF CLOCK PRESENT 
YES = CLOCK IS PRESENT 


sz: TYPE ASCIZ STRING 
3:GET OVER THE ASCIZ 


:PROGRAM HALT !! 


vy tay * 4% SOF TWARE eet REGISTER 


66 

SENV,#1 
66$ 
SWR,#SWREG 
67$ 


‘67% 
#1, SAUTOB 


SDEVM 
$ 


2 
arc2 
1$ 
START 
SEOP 


$TSTNM 
STIMES 
CTLFG 
PC ,STKINT 
#PR6,-(SP) 
#64$,-(SP) 


ARE WE RUNNING UNDER XXDP/ACT? 
‘BRANCH IF YES 

:;ARE WE RUNNING UNDER APT? 
;:BRANCH IF YES 

:;SOFTWARE SWITCH REG SELECTED? 
;;BRANCH IF NO 

32:GET SOFT-SWR SETTINGS 


::SE, AUTO-MODE INDICATOR 


READY TO START TEST 
sANY DRIVES IN MAP ? 


:BR IF YES 
; ANY a PRESENT ? 
:BR YES 


S SUMP. TO START 
RETURN CONTROL TO MONITOR 


sRESET TEST NUMBER 

INITIALIZE NUMBER OF ITERATIONS 
:CLEAR CONTROL=C FLAG 
INITIALIZE TTY 
:;PUT NEW PS ON STACK 
::PUT NEW PC ON STACK 


7 
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GET VALUE FOR SOFTWARE SWITCH REGISTER SEQ 0083 

010034 000002 RT] ;;POP NEW PC AND PS 
010036 648: 

*g 010036 117737 171422 001234 MOVB QTSTQUE,SUNIT ;LOAD UNIT NUMBER 

bu ;CLEAR MASSBUS Tsai it SELECT DRIVE AND DETERMINE THE LAST TRACK 

45 OF THE aaa re E_TYPES 

46 010044 012737 002000 001332 ATAG,LSTRK + ASSUME LAST TRACK FOR RMO2/3 = 

47 010052 013700 001276 MOV SBASE ,RO ;RO_ = UNIBUS ADDRESS 

48 010056 012760 000040 000010 MOV WCLR,RMCS2(RO) :CLEAR MASSBUS 

49 010064 117760 171374 000010 MOVB aTSTQUE ,RMCS2(RO) SELECT DEVICE UNDER TEST 

50 010072 016002 000026 MOV RMDT(RO) ,R2 ;GET RMDT AND 

51 010076 042702 177770 BIC #177770,R2 ; SAVE gy TYPE BITS 

52 010102 922702 000007 CMP #7,R2 :1$ IT AN RMOS ? i 

53010106 001003 BNE 3$ NO, must BE AN RMO2 OR RMO3 

a Peis 012737 011000 001332 33 MOV MTAIO!TA2Z,LSTRK YES*=SEI LAST TRACK = 18. 


1 


CZRMMAO RMOS/3/2 FCTNL 
GET VALUE FOR SOFTWARE 


1 


G 7 
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SWITCH REGISTER 


2 settee eeeeeranaeeeneeeeteee eee eee Tete eeeeheteeeeeeeeeeTeeeeene 
S*TEST 1 CONTROLLER ACCESS TEST 
ee RUKH H EAH eR eee eee eee eee eee Aeekeeeteeeeeeeeeeeeereneeeee 
16 T§11: 
16 000004 SCOPE :SCOPE CALL 
20 000240 NOP TSTART OF TEST 
22 012706 001100 MOV #STACK,SP SINITIALIZE STACK POINTER 
26 013700 001276 MOV S$BASE ,RO :RO = UNIBUS ADDRESS 
32 013701 001464 MOV TSTQUE ,R1 7(R1) = DEVICE BEING TESTED 
; 36 012737 000001 MOV #1, S$TESTN ::;SET TEST NUMBER IN APT MAIL BOX 
4 44 005001 CLR RI 
5 46 013746 000004 MOV ERRVEC,-(SP) ::PUSH ERRVEC ON STACK 
6 52 013746 00000 MOV ERRVEC4+2,-(SP) :;PUSH ERRVEC+2 ON STACK 
7 56 012737 010250 MOV #3$,ERRVEC 
: 010164 012737 000300 MOV #PR6,ERRVEC+2 
10 010172 110160 000001 MOVB R1,RMCS141(RG) ;MOVE HI BYTE TO RMCS1 
11010176 010160 000002 MOV R1.RMWC CRO) :MOVE WORD COUNT REGISTER 
12 010202 016002 000002 MOV RMWC (RO) ,R2 
13 010206 010160 000004 MOV R1,RMBAC(RO) s;MOVE BUS ADDRESS REGISTER 
14 010212 016002 000004 MOV RMBA(RO) ,R2 
15 010216 010160 000010 MOV R1,RMCS2(RO) sMOVE CONTROL STATUS REGISTER 
16 010222 016002 000010 MOV RMCS2(RO) ,R2 
17 010226 010160 000022 MOV R1,RMDB(RO) :MOVE DATA BUFFER 
18 010232 016002 000022 MOV RMDB(RO) ,R2 
19 010236 012637 000006 MOV (SP)+, ERRVEC+2 3;;POP STACK INTO ERRVEC+2 
20 010242 012637 000004 MOV (SP)+,ERRVEC | ;;POP STACK INTO ERRVEC 
21 010246 000415 BR 7$ :NO BUS TIMEOUT OCCURRED 
23 010250 022626 3$: CMP (SP)+,(SP)+ sADJUST STACK 
24 010252 012637 000006 MOV (SP) + ERRVEC42 >;POP STACK INTO ERRVEC+2 
25 010256 012637 000004 MOV (SP)+,ERRVEC  ;:POP STACK INTO ERRVEC 
26 010 104110 EMT 110 
27 010264 005737 000042 TST ae42 :STAND ALONE MODE ? 
28 010270 001002 BNE 5$ NO! ! 
29 010272 000137 005412 JMP START :YES-GO GET $BASE 
31 010276 000137 042136 5$: JMP $SEOP 3;GO TO END OF PASS HANDLER 
32 010302 7$: 
34 LP eee ener eee eee eee eee eee tee KKK eee Reet eee 
T*TEST 2 DEVICE AVAILABLE TEST 
settee eaeee eee eee eee eee eee eee eee eee eee eee eee eee eee 
10302 TST2: 
10302 000004 SCOPE :SCOPE CALL 
10304 000240 NOP :START OF TEST 
1 012706 001100 MOV #STACK,SP SINITIALIZE STACK POINTER 
1 013700 001276 MOV SBASE ,RO :RO = UNIBUS ADDRESS 
1 013701 001464 MOV TSTQUE,R1 :(R1) = DEVICE BEING TESTED 
im 1 012737 000002 MOV #2, $TESIN :;SET TEST NUMBER IN APT MAIL BOX 
36 01 004737 053530 JSR PC,CNTCLR :G0 ISSUE CONTROLLER CLEAR 
1 000404 BR 2% 7:60 TO 2$ IF NO ERROR 
1 000240 NOP SRETURN HERE IF ERROR 
1 104000 EMT TERROR NUMBER DEFINED BY SUBROUTINE 


CZRMMAO wed ot FCTNL TST 1 
AVAILABLE TEST 


T2 


1CcE 


SSoSo < 
SSALEL 5 
SEH 


oo oOo 
rw 


FRRRRRF 
lawrn ——-Ooon 
OnNroOe £eOwO orm 


oo 
* 
™m 


0444 


SOONOVEWN —OOONG UES WH —OOOn 
OOoOCOCOO COOCOCOCOCOCOCOCOO COCCOoOO D4 


SS SS SELES Tee Se et et et ee ee ee ek | 
— 


ws 
SRo 


64 
65 


MM UW 
Nm 


66 
67 


SOOO SCOOCOCOCOCOCCOOCOOCOOO COCOCoO 
oooo Sssssss3s3ss333 ooo 

ww 

~m 


NNO OO 
Wwr—O O@® 


000137 


000004 


012737 
004737 


000137 
112737 


104000 
022737 


001431 


010462 
000004 
000006 
010446 
000300 


000000 
010000 


004000 


000006 
000004 


042100 


001100 
000003 
053530 
010664 
000026 


044154 


020024 
024024 
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000004 
000006 


001176 
001174 
001174 


001176 


001226 


001362 
001362 


m= JMP 7$ :G0 TO 7$ IF ERROR 
MOV ERRVEC,<(SP)  ; ;PUSH ERRVEC ON STACK 
MOV ERRVEC4+2,=(SP) ::PUSH ERRVEC+2 ON STACK 
MOV #5$,ERRVEC 
MOV PRO. ERRVEC*#2 
MOV RMCS1(RO),STMP1 ;GET DVA STATUS 
MOV RMCS2(RO).$TMPO :GET NED STATUS 
MOV (SP) +, ERRVEC42 >POP STACK INTO ERRVEC#2 
MOV SP) ERRVEC ::POP STACK INTO ERRVEC 
BIT Dd, $TMPO :NONEXISTENT DEVICE ? 
BEQ 3° “NO! ! 
EMT 111 
BR 7$ 
3$: BIT #DVA,STMP1 :DEVICE AVAILABLE ? 
BNE 9$ YES! ! 
EMT 112 
BR 7$ 
5$: CMP (SP)+,(SP)+ sADJUST STACK 
MOV (SP) + ERRVEC42 >:POP STACK INTO ERRVEC+2 
Mov (SP) + ERRVEC :;POP STACK INTO ERRVEC 
7$: JMP SEOSP 
9$: 
PRR ARHRRAe eee eteeee eee teeta KeeKeekeReeeteeeeeeeeteeeeee 
TSTEST 3 DRIVE TYPE TEST 
peerekeakakeeeeee eee eee eee eReaKKeketeeeeeeeeeeeeeeeeee 
ié13: 
SCOPE :SCOPE CALL 
NOP :START OF TEST 
MOV #STACK,SP ‘INITIALIZE STACK POINTER 
MOV SBASE ,RO :RO = UNIBUS ADDRESS 
MOV TSTQUE ,R1 7(R1) = DEVICE BEING TESTED 
MOV #3, $TESIN ::SET TEST NUMBER IN APT MAIL BOX 
JSR PC, CNTCLR :G0 ISSUE CONTROLLER CLEAR 
BR 2$ ‘GO TO 2$ IF NO ERR OR 
NOP ‘RETURN HERE IF ERRO 
EMT TERROR NUMBER DEFINED BY SUBROUTINE 
a JMP 4$ 760 TO 4$ IF ERROR 
MOVB &#RMDT,GETINX ;SETUP GET INDEX TABLE 
MOVB #200,GETINX*+1 :SETUP TERMINATOR BYTE 
MOV #5$,RMOTI :SET RMDT INPUT BUFFER = 5$ 
JSR PC GET :60 READ RMDT VIA GET SUBROUT I NE 
BR 3$ TO 3$ IF NO ERR 
NOP RETURN HERE IF ERR 
EMT TERROR DEFINED BY eer SUBROUT INE 
3$: CHP #SNGPRT ,RMDT : SINGLE PORT RMO3 ? 
CMP #DULPRT,RMDTI DUAL ‘port RMO3 ? 
BEQ 5$ YES 


SEQ 0085 


CZRMMAQ RMOS/3/2 FCIN 
13 DRIVE TYPE TE 
74 010606 02273 
75 010614 boas 
76 010616 0227 
a4 010624 00142 
79 010626 02273 
80 010634 00141 
81 010636 02273 
Hf 010644 00141 
84 010646 01273 
85 010654 01273 
$6 010662 10411 
88 010664 000137 
89 010670 
90 
91 
010670 
010670 000004 
010672 000240 
010674 012706 
0107 013700 
010704 013701 
010710 012737 
92 010716 012737 
93 010724 004737 
010730 000404 
010732 000240 
010734 104000 
010736 000137 
94 010742 
95 010742 012702 
96 010746 012737 
97 010754 112737 
98 010762 112737 
99 010770 
100 010770 004737 
010774 000404 
010776 000240 
011000 104000 
011002 000137 
101 011006 005302 
102 011010 001367 
103 011012 012737 
104 011020 012737 
105 011026 012737 
106 011034 012737 
107 011042 012737 
+s 011050 012737 
110 011056 012702 
111 011062 112722 
112 011066 112722 


nN ONY G™GY Oe IS _ 


TST 1 


020025 
024025 


020027 
024027 


020024 
024024 


042100 


001100 


000004 
053530 


011540 


000101 


000200 
044424 
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001362 
001362 


001362 
001362 


001176 
001200 


001206 
001226 


001432 
001543 
001544 


4$: 
5$: 


 matetlee eames 
Serer res seen 


xe tt PORT RMO2 ? 
:DUAL F PORT RMO2 ? 


#SNGPRT!BIT1!BITO,RMDTI +? ay PORT RMOS ? 
«aati aaht caine Ke DUAL “PORT RMOS ? 


#SNGPRT ,STMP1 
1 ainda 


SEOSP 


;LOAD ACCEPTABLE VALUES 


:GO0 TO SUBPASS HANDLER. 


FREER RARE REET ERATE TEAR EAE HERHRKERERAARAERTReKA eee eee 


UNIBUS INITIALIZE TEST 


PRR ARER AAA eee eee Keeeketeeeeeeeeneeeeeeeeeeee 


TEST 4 


TST4: 


10$: 


208: 


30$: 


SCOPE CALL 
START OF TEST 


AMSTACK,SP INITIALIZE oo POINTER 
SBASE ,RO RO = UNIBUS ADDRESS 
TSTQUE ,R1 :(R1)_= DEVICE BEING TESTED 
#1,S$TIMES :;D0 1 ITERATION 
#4, $TESTN ::SET TEST NUMBER IN APT MAIL BOX 
PC,CNTCLR 760 Foe CONTROLLER CLEAR 
10$ ;G0 TO 10$ IF NO ey 

RETURN HERE IF ERR 

;ERROR NUMBER DEFINED BY SUBROUTINE 
220% 360 TO 220$ IF ERROR 
#65. ,R2 ;SET OR AND RESET IR 
#0,RMDBO sWRITE ZEROS IN DATA SILO 
#RMDB,PUTINX SETUP REGISTER INDEX 
#200,PUTINX+1 
PC,PUT :GO0 WRITE REGISTER(S) WITH PUT SUBROUTINE 
30$ :GO0 TO 30$ IF NO ER <> y 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PUT SUBROUTINE 
2208 ;GO TO 220$ IF ERROR 
R2 ;DECREMENT COUN 
20% :WRITE SILO AGAIN 
#-1,RMBAO ;RMBA = ALL 1°'S 
#-1,RMERIO :RMER1 = ALL 1°S 
#-1,RMER2O ;RMER2 = ALL 1° 
#OMD!DBEN,RMMR10 SET DIAGNOSTIC MODE 
#003577,RMCS10 
#021037,RMCS20 
#PUTINX,R2 :R2 = ADDRESS OF INDEX TABLE 


#RMBA, (R2) + 
#RMERT,(R2)4 


SEQ 0086 
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CZRMMAO RMOS/3/2 FCTNL TS 
1% UNIBUS INITIALIZE TEST SEQ 0087 

113 011072 112722 000042 MOVB  #RMER2,(R2)4 

114 011076 11279@ 000024 MOVB  #RMMRT.(R2)4 

115 011102 112722 000000 MOVB #RMCS1.(R2)4 

116 011106 112722 000010 MOVB = #RMCS2.(R2)+4 

117 011112 112722 000200 MOVB #200, (R2)¢ 

118 011116 006737 044424 JSR PC PUT :G0 WRITE REGISTER(S) WITH PUT SUBROUTINE 
011122 000404 BR 40$ :G0 TO 40$ IF NO ERROR 
0111246 000240 NOP ‘RETURN HERE IF ERROR 
011126 104000 EMT SERROR # DEFINED BY PUT SUBROUTINE 
011130 000137 011540 JMP 2208 760 TO 220$ IF ERROR 

119 011134 000005 40$: RESET SUNIBUS INITIALIZE 

120 011136 004737 064120 JSR PC ,STKINT SINITIALIZE CONSOLE 

121 011142 111160 000010 MOVB  (R1),RMCS2(RO) SELECT DEVICE 

1g 011146 004737 044070 JSR PC,GETSTS :GO SET UP FOR STATUS FETCH 

124 011152 004737 044154 JSR PC,GET :GO READ REGISTER(S) WITH GET SUBROUTINE 
011156 000403 BR 50$ :G0 TO 50$ IF NO ERROR 
011160 000240 NOP [RETURN HERE IF ERROR 
011162 104000 EMT TERROR # DEFINED BY GET SUBROUTINE 

125 011164 000565 BR 2208 :SKIP REMAINDER OF TEST 

127 011166 013737 001334 001142 50$: Mov RMCS11,$BDDAT  ; VERIFY RMCS1 

128 011174 042737 100000 001142 BIC #SC,$BDDAT SIGNORE SPECIAL CONDITION 

129 011202 012737 004200 001140 MOV MDVAIRDY,SGDDAT ;EXPECT DVA & RDY 

130 011210 023737 001140 001142 CMP SGDDAT,S$BDDAT : COMPARE EXPECTED, RECEIVED 

131 011216 001401 BEQ 60$ [BRANCH IF EQUAL 

132 011220 104115 EMT 115 

134 011222 005037 001140 608: CLR $GDDAT s;VERIFY RMBA IS ZERO 

135 011226 013737 001340 001142 MOV RMBAI ,SBDDAT 

136 011234 001401 BEQ 70$ sBRANCH IF ZERO 

137 011236 104116 EMT 116 

139 011240 013737 001344 001142 70$: Mov RMCS21,$BDDAT  ; VERIFY RMCS2 

140 011246 005046 CLR -(SP) SEXPECT IR & UNIT NUMBER 

141 011250 111116 MOVB = (R1), (SP) 

142 011252 052716 000100 BIS #1R, (SP) 

143 011256 012637 001140 MOV (SP)+,$GDDAT 

144 011262 023737 001140 001142 CMP SGDDAT,$BDDAT ; COMPARE EXPECTED & RECEIVED 

145 011270 001401 BEQ 90$ [BRANCH IF EQUAL 

146 011272 104117 EMT 117 

148 011274 005037 001140 90$: CLR SGDDAT :VERIFY RMER1 

149 011300 013737 001350 001142 MOV RMER11,$BDDAT 

150 011306 042737 040000 001142 BIC #UNS , $BDDAT sIGNORE UNSAFE 

151 011314 001401 BEQ 110$ ‘BRANCH If ZERO 

132 011316 104120 EMT 120 

154 011320 013737 001352 001142 110$: Mov RMASI,$BDDAT —; VERIFY RMAS 

155 011326 005002 CLR R [CLEAR ALL BUT THIS 

156 011330 116102 000001 MOVB =: 1(R1) ,R2 ‘DRIVES ATTENTION BIT 

157 011334 000302 SWAB sR 

158 011336 005102 COM R2 

159 011340 000240 NOP 

160 011342 040237 001142 BIC R2,$BDDAT 

161 011346 001401 BEQ 136$ :BRANCH IF ITS 0 

162 011350 104121 EMT 121 
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14 UNIBUS INITIALIZE TEST SEQ 0088 
163 
164 011352 013737 001360 001142 1308: Mov RMMRII1,$BDDAT  ; VERIFY RMMR 
165 011360 042737 000046 001142 BIC #WC'LS'LST, SBDDAT sIGNORE WORD CLOCK, SCT, TRK 
166 011366 012737 000010 001140 MOV #MWD ,SGDDAT sEXPECT WRITE DATA BIT 
167 011374 023737 001140 001142 CMP SGDDAT,SBDDAT :COMPARE EXPECTED AND RECEIVED 
168 011402 001401 BEQ 170$ ‘BRANCH IF 0 
169 011404 104122 EMT 122 
171 011406 005037 001140 170$: CLR SGDDAT SEXPECT ZEROS 
172 011612 013737 001402 001142 MOV RMEC21,$BDDAT VERIFY RMEC2 = 0 
173 011420 001401 BEQ 190$ 
17% 011422 104124 EMT 124 
176 011424 013737 001374 001142 190$: MOV RMMR21,S$BDDAT sVERIFY RMMR2 
177 011432 042737 140000 001142 BIC #RQA'ROB,SBDDAT 
178 011440 012737 011777 001140 MOV #1ST'1777,$GDDAT sEXPECT TEST,TAG BIT ON 
179 011446 023737 001140 001142 CMP $GDDAT, $BDDAT 
180 011454 001401 BEQ 210$ 
181 011456 104125 EMT 125 
183 011460 005037 001140 2108: CLR SGDDAT sEXPECT ALL ZEROS 
184 011464 013737 001376 001142 MOV RMER21,$BDDAT sVERIFY RMER2 
185 011472 042737 040200 001142 BIC #SKI'DVC,$BDDAT : IGNORE DEVICE ERRORS 
186 011500 001401 BEQ 215$ :BRANCH IF OTHER BITS 0 
187 011502 104173 EMT 173 
188 011504 013737 001346 001142 215$: MOV RMDS1,SBDDAT ;CHECK DRIVE STATUS REGISTER 
189 011512 042737 177177 001142 BIC #*°C<DPR!DRY>, SBDDAT 
190 011520 012737 000600 001140 MOV #DPRIDRY,SGDDAT ;EXPECTED STATUS 
191 011526 023737 001142 001140 CMP SBDDAT,SGDDAT :COMPARE EXPECTED & RECEIVED STATUS 
192 011534 001401 BEQ 2208 sDRIVE STATUS IS OK 
193 011536 104123 EMT 123 
194 011540 2208: 
196 SC RTA RARER eee eee eee eee Ketek eeteteeeeeaeeee 
s*TEST § CONTROLLER CLEAR TEST 
RARER AAA eee eee KARA KAKA e Keene eeeeeneeeene 
011540 TST5: 
011540 000004 SCOPE ;SCOPE CALL 
011542 000240 NOP sSTART OF TEST 
011544 012706 001100 MOV #STACK,SP INITIALIZE STACK POINTER 
011550 013700 001276 MOV SBASE ,RO :RO = UNIBUS ADDRESS 
011554 013701 001464 MOV TSTQUE,R1 3(R1) = DEVICE BEING TESTED 
an 011560 012737 000005 001226 MOV #5 STESIN >;SET TEST NUMBER IN APT MAIL BOX 
198 011566 004737 053530 JSR PC,CNTCLR 3G0 ISSUE CONTROLLER CLEAR 
011572 000404 BR 10$ :GO TO 10$ IF NO ERROR 
011574 000240 NOP [RETURN HERE IF ERROR 
011576 104000 EMT ;ERROR NUMBER DEFINED BY SUBROUTINE 
011600 000137 012076 JMP 80$ [60 TO 80$ IF ERROR 
199 011604 10$: 
200 011604 012702 000101 MOV #65. ,R2 
201 011610 012737 000000 001432 MOV #0,RMDBO ;WRITE ZEROS IN DATA SILO 
202 011616 112737 000022 001543 MOVB #RMOB, PUTINX ;SETUP REGISTER INDEX TABLE 
203 011624 112737 000200 001544 oe MOVB #200,PUTINK+1 
205 011632 006737 044424 JSR PC,PUT 7GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
011636 000404 BR 30% :G0 TO 30% IF NO ERROR 


7? 
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CONTROLLER CLEAR TEST SEQ 0089 
011640 000240 NOP ;RETURN HERE IF ERROR 
011642 104000 EMT TERROR # DEFINED BY PUT SUBROUTINE 
011664 000137 012076 JMP 808 :60 TO 80$ IF ERROR 

206 011650 005 30¢ 30$: DEC R2 SDECREMENT COUNT 

207 011652 00136 BNE 208 ;AND WRITE SILO AGAIN IF NOT DONE 

208 011654 012737 177777 001414 MOV #-1,RMBAO 

209 011662 012737 177777 001424 MOV #-1.,RMERIO 

210 011670 012737 177777 001452 MOV #-1_RMER20 

211 011676 012737 040001 001434 MOV #OMD 'DBEN, RMMR10 

1 011704 012737 003577 001410 MOV #003577, RMCS10 

213 011712 012737 021037 001420 MOV #021037. RMCS20 

214 011720 012702 001543 MOV #PUTINKX,R2 ;R2 = ADDRESS OF INDEX TABLE 

215 011726 11279¢ 000004 MOVB #RMBA, (R2)¢ 

216 011730 112722 000014 MOVB = @RMERT, (R2)4 

217 011734 312722 000042 MOVB #RMERZ.(R2)+ 

218 011740 112722 000024 MOVB #@RMMR1T,(R2)¢ 

219 011744 112722 MOVB = #RMCS1.(R2)4 

220 011750 112722 000010 MOVB  #RMCS2.(R2)4 

221 011754 112722 00 MOVB #200,(R2)+ 

222 011760 004737 044424 JSR PC PUT 3G0 WRITE REGISTER(S) WITH PUT SUBROUTINE 
011764 000403 BR 40$ :G0 TO 460$ IF NO ERROR 
011766 000240 NOP ;RETURN HERE JF ERROR 
011770 104000 EMT sERROR # DEFINED BY PUT SUBROUTINE 

225 011772 000430 BR 70$ 

225 011774 40$: 

226 011774 006737 053530 JSR PC,CNTCLR :G0 ISSUE CONTROLLER CLEAR 
012000 000404 BR 50$ 760 TO 50S IF NO ERROR 
012002 000240 NOP sRETURN HERE IF ERROR 
012004 104000 EMT sERROR NUMBER DEFINED BY SUBROUTINE 
012006 000137 012076 JMP 80$ :60 TO 80$ IF ERROR 

4 012012 004737 044070 50$: JSR PC,GETSTS ;SETUP TO READ ALL REGISTERS 

229 012016 0046737 044154 JSR PC ,GET 3G0 READ REGISTER(S) WITH GET SUBROUTINE 
012022 000404 BR 608 760 TO 60$ IF NO ERROR 
012024 000240 NOP ;RETURN HERE IF ERROR 
012026 104000 EMT sERROR # DEFINED BY GE? SUBROUTINE 
012030 000137 012076 JMP 808 [60 TO 80$ IF ERROR 

230 012034 60S: 

231 012034 004737 053646 JSR PC,CLRSTS 3;G0 VERIFY CONTROLLER CLEAR OPERATION 
012060 000405 BR 70$ 760 TO 70$ IF NO ERROR 
012042 000240 NOP sRETURN HERE IF ERROR 
012044 104000 EMT sERROR # DEFINED BY CLRSTS SUBROUTINE 
012046 004736 JSR PC,a(SP)* ;GO BACK FOR MORE ERROR CHECKS 

oe 912050 000137 012076 -s JMP 808 760 TO 80$ IF ERROR 

$32 012054 012737 000000 001410 MOV @NOP ,RMCS10 ;CHANGE FUNCTION CODE FOR ERROR CHECK 

235 012062 004737 046004 JSR PC,SECERR 7GO CHECK FOR SECONDARY ERRORS 
012066 000403 BR 80$ :G0 TO 80$ IF NO ERROR 
012070 000240 NOP [RETURN HERE IF ERROR 
012072 104000 EMT sERROR # DEFINED BY SECERR SUBROUTINE 
012074 004736 JSR PC ,a(SP)¢ 3;GO0 BACK FOR MORE ERROR CHECKS 

236 012076 80S: 

237 

238 PL eeeeeeeeerercererereeseeeeereseeseeeseeresereseeeseeeetesteeeteees 


:*TEST 6 ERROR CLEAR TEST 
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ERROR CLEAR TEST SEQ 0090 
-@eeeeecerereecreeeeeerereeerererereeeeenereeereeeeeeeeeeeeeeeeeses 
Sisore 000004 tBt6: :SCOPE CA 
: LL 
012100 909240 N [START OF TEST 
012102 B18 06 001100 MOV @STACK,SP s INITIALIZE — POINTER 
012106 013700 001276 MOV SBASE RO RO = UNIBUS ADDRESS 
012112 013701 001464 MOV TSTQUE,R1 7(R1) = DEVICE BEING TESTED 
an 012116 012737 000006 001226 MOV #6, STESTN ::SET TEST NUMBER IN APT mal Box 
240 012124 004737 053530 JSR PC, CNTCLR 60 Issue CONTROLLER oft tar 
O13180 000404 BR 108 760 TO 108 IF NO ERR 
012132 000240 NOP SRETURN HERE IF ERRON 
012134 104000 EMT [ERROR NUMBER DEFINED BY SUBROUTINE 
as 012136 000137 012302 1s JMP 508 760 TO 50S IF ERROR 
242 012142 112737 000000 001543 MOvB @RACS1,PUTINK ;SETUP PUT INDEX TABLE 
012150 112737 000200 001544 *OvB #200 ,PUTINK+1 7SET TERMINATOR BYTE 
012156 012737 040000 001410 MOV @TRE,RMCS1O ;SET RMCS1 OUTPUT BUFFER = TRE 
012164 0046737 044424 JSR PC,PUT 360 wit ree VIA PUT SUBROUTINE 
012170 000403 BR 208 760 TO 208 IF NO ER ROR 
012172 000240 NOP RETURN HERE IF ERROR 
012174 104000 EMT TERROR DEFINED BY PUl SUBROUTINE 
243 012176 000441 BR 50% ;SKIP REST OF TEST 
244 012200 112737 000000 001514 208:  MOVB  #RMCS1,GETINX 
245 012206 112737 000010 001515 MOVB  #RMCS2.GETINK#1 
246 012214 112737 000200 001516 MOVB #200,GETINK+2 
248 Oigsee 004737 044154 JSR PC,GET 3GO READ REGISTER(S) WITH GET SUBROUTINE 
012226 000403 BR 306 760 10 308 IF NO ERROR 
012230 000240 NOP sRETURN HERE IF ERROR 
012232 104000 EMT sERROR # DEFINED BY GET SUBROUTINE 
249 012234 000422 BR 50$ sSKIP REST OF TEST 
250 012236 013737 001334 001142 30%: MOV RMCS11,$BDDAT jece TRE & MCPE 
251 012264 005037 001140 CLR SGDDAT sExP ci o°s 
252 012250 042737 117777 001142 BIC @*C<TRE!MCPE>, SBDDAT 
253 012256 001401 BEQ 40% ;BRANCH IF TRE & MCPE = 0 
234 012260 104137 EMT 137 
256 012262 013737 001344 001142 40$: Mov RMCS21,$BDDAT ;CHECK RMCS2 
257 012270 042737 104377 001142 BIC #*C<WCE !UPE'NED! PGE !MXF 'MDPE>, SBDDAT 
258 012276 001401 BEQ 50$ 
259 012300 104140 EMT 140 
26 012302 508: 
263 Peeeeeeeeeeeeeeeerereneteeeeeeteeeeeteeeeeeeeeeeeeeeeeeeeeeeeeee 
SSTEST 7 DRIVE STATUS TEST 
,eteeeerekeeeeeeeeeeteeetetereeeeeeeeaeeteneeeeeneeeeeeeeeeeeeee 
012302 i817: 
012302 000004 SCOPE ZSCOPE CALL 
012304 000240 NOP sSTART OF TEST 
012306 012706 001100 MOV @STACK,SP sINITIALIZE STACK POINTER 
012312 013700 001276 ; MOV SBASE ,RO :RO = UNIBUS ADDRESS 
012216 013701 001464 MOV TSTQUE,R1 7(R1) = DEVICE BEING TESTED 
012322 012737 000007 001226 MOV #7, STESTN ::SET TEST NUMBER IN APT MAIL BOX 


264 
265 012530 004737 053530 JSR PC,CNTCLR :G0 ISSUE CONTROLLER CLEAR 


Nn 7 
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DRIVE STATUS TEST SEQ 0091 
012334 000404 BR 10$ 260 TO 10$ IF NO ERROR 
012336 000240 NOP [RETURN HERE IF ERR 
012340 104000 EMT ‘ERROR NUMBER DEFINED BY SUBROUTINE 
012342 000137 012616 JMP 1008 :60 TO 100$ IF ERROR 
266 012346 108: 
267 012346 004737 044070 JSR PC,GETSTS 
269 012352 004737 044154 JSR PC,GET 3G0 READ REGISTER(S) WITH GET SUBROUTINE 
012356 000403 BR 208 760 10 20$ IF NO ERRO OR 
012360 000240 NOP S RETURN HERE IF ERROR 
012362 104000 EMT S ERROR § oe BY GET SUBROUTINE 
270 012364 000514 BR 1008 :SKIP REST OF TEST 
271 012366 032737 010000 001346 208: BIT #MOL,RMDS1 ;MEDIUM ON LINE?? 
27 012374 001016 BNE 30$ YES! 
273 012376 013737 001346 001140 MOV RMDS1,$GDDAT EXPECTED STATUS 
274 012404 042737 162000 001140 BIC #ATA'ERR'PIP!LBTSGDDAT 
275 012412 052737 010000 001140 BIS #MOL .$GDDAT 
276 012420 013737 001346 001142 MOV RMDSI,$BDDAT  ;RECEIVED STATUS 
277 012426 104151 EMT 151 ;MOL STATUS INCORRECT 
278 012430 000440 BR 708 
280 012432 032737 000200 001376 30%: BIT #DVC,RMERZI 31S THERE A DEVICE CHECK?? 
281 012440 001422 BEQ 60$ R 
282 012442 013737 001376 001142 MOV RMER21,$BDDAT RECeiven STATUS 
283 012450 005037 001140 CLR SGDDAT sEXPECTED STATUS 
284 012454 104152 EMT “DRIVE FAULT 
286 012456 032737 040000 001350 BIT #UNS ,RMER11 :19 UNS SET?? 
012464 001022 BNE 70$ “YES! 
288 012466 013737 001350 001142 MOV RMER11,$BDDAT RECEIVED STATUS 
289 012474 012737 040000 001140 MOV #UNS,,SGDDAT sEXPECTED STATUS ‘ 
290 012502 104153 EMT 153 :"DVC' IS SET BUT "'UNS'' IS NOT 
291 012504 000412 BR 70$ 
293 012506 032737 040000 001350 60%: BIT #UNS ,RMER1 I :1S UNS SET?? 
294 012514 001410 BEQ $ NO! ! 
295 012516 013737 001350 001142 MOV RMER11,$BDDAT ;RECEIVED STATUS 
296 012524 005037 001140 CLR SGDDAT EXPECTED STATUS ; 
297 012530 104154 EMT 154 1S NOT oF BUT ‘'UNS' 
34 012532 000137 042100 70$: JMP SEOSP ‘SKIP REST OF TEST 
300 012536 032737 004000 001346 80$: BIT #WRL,RMDSI :1$ WRITE PROTECT ON?? 
301 012544 001412 BEQ 90$ =NO! 
302 012546 013737 001346 001140 MOV RMDS1,$GDDAT <PRPECTED STATUS 
303 012554 042737 166076 001140 BIC #°C<MOL!PGM!DPR!DRY! VV!OM>, panes 
304 012562 013737 001346 001142 MOV RMDS1,$BDDAT sRECEIVED STAT US 
305 012570 104175 EMT 175 *SELECTED DEVICE IN WRITE PROTECT 
307 012572 032737 040000 001376 908%: BIT #SKI,RMERZI :1S SKI SET?? 
308 012600 001406 BEQ 100$ :NO! 
309 012602 013737 001376 001142 MOV RMER21 ,$BDDAT RECEIVED STATUS 
310 012610 005037 001140 CLR $GDDAT sEXPECTED STATUS 
311 012614 104205 EMT :PERSISTENT SEEK INCOMPLETE ERROR 
312 012616 1008: 
314 peeeeneeeeeneerreerereererereeeteneeeeeeee eee eee eee eeR EEE 
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001226 


001543 
001544 
001410 


001226 


SEQ 0092 
OO Nag ea teat ea i ae Se Ng Bo 
710: 

SCOPE :SCOPE CALL 

NOP *START OF Test 

MOV #STACK,SP S INITIALIZE STACK POINTER 

MOV SBASE ,RO :RO = UNIBUS ADDRESS 

MOV TSTQUE ,R1 [(R1) = DEVICE etitt: TESTED 

MOV #10, $TESTN +;SET TEST NUMBER IN APT MAIL BOX 

JSR PC, CNICLR 60 Issue CONTROLLER CLEAR 

BR 1$ :G0 TO 1$ IF NO ERROR 

NOP [RETURN HERE IF ERROR 

EMT [ERROR NUMBER DEFINED BY SUBROUTINE 
a JMP 5$ 760 TO 5$ IF ERR 

MOVB #RMCS1,PUTINX ;SETUP PUT INDEX TABLE 

MOVB  #200,PUTINX+1  :SET TERMINATOR BYTE 

MOV #PAKACK'GO, RACSIO ET RMCS1 OUTPUT BUFFER = PAKACK!GO 

JSR PC,PUT wRrité RCS! VIA PUT SUBROUTINE 

BR 2$ 5 10 2$ IF NO ER ROR 

NOP RETURN HERE IF ERROR 

EMT ‘ERROR DEFINED BY PUT SUBROUTINE 

BR 5$ :SKIP REST OF TEST IF ERROR 
2$: JSR PC,GETSTS :SETUP FOR STATUS FETCH 

JSR PCT HOUT ‘WAIT FOR COMPLETION OF NOP 

JSR PC,GET ;60 READ REGISTER(S) WITH GET SUBROUTINE 

BR 3$ 0 TO 3$ IF NO ER ROR 

NOP “RETURN HERE IF ERR 

EMT TERROR # DEFINED BY Ofer SUBROUT INE 
* BR 5$ “SKIP REST OF TEST IF ERROR 

JSR PC, PRIERR :GO CHECK FOR PRIMARY ERRORS 

BR 4$ :G0 TO 4$ IF NO ERROR 

NOP “RETURN HERE IF ERROR 

EMT TERROR # DEFINED BY PRIERR SUBROUTINE 

JSR PC,a(SP)+ *GO BACK FOR MORE ERROR CHECKS 
as BR 5$ [SKIP REST OF TEST IF ERROR 

JSR PC, SECERR :60 CHECK FOR SECONDARY ERRORS 

BR 5$ TO 5$ IF NO ERROR 

NOP RETURN HERE IF ERROR 

EMT TERROR # DEFINED BY SECERR SUBROUTINE 
* JSR PC,a(SP)+ *GO BACK FOR MORE ERROR CHECKS 
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TST11: 


MOV MSTACK SP 


MOV #11, S$TESIN 


SCOPE CAL 

:START OF TEST 

INITIALIZE STACK POINTER 

7RO_ = UNIBUS ADDRESS 

:(R1) = DEVICE BEING TESTED 

:;SET TEST NUMBER IN APT MAIL BOX 
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Mm 


1C MODE TEST SEQ 0093 
004737 053530 JSR PC,CNTCLR :60 Fe | ie no Eehoe CLEAR 
000404 BR 1$ :G0 TO 1$ IF NO ERR 

000240 NOP RETURN HERE JF ERR 

104000 EMT ZERROR NUMBER DEF INED BY SUBROUTINE 
000137 014050 1s JMP 22% :G0 TO 22$ IF ERR 

112737 000024 001543 MOVB MRMMR1,PUTINX  ;SETUP PUT INDEX Li oy 

112737 000200 001544 MOVB #200,PUTINX+1 SET TERMINATOR BYTE 

012737 000001 001434 MOV #OMD ,RMMR10 ;SET RMMR1 OUTPUT BUFFER = DMD 
004737 044424 JSR PC,PUT :60 WRITE RMMR1 Ht o SUBROUTINE 
000404 BR 2$ 0 TO 2$ IF NO ERR 

000240 NOP ‘RETURN HERE IF ERR 

104000 EMT i re ad seat SUBROUTINE 
000137 014050 JMP 22% 0 10 22$ IF E 

004737 044070 2$: JSR PC,GETSTS ‘SETUP FOR STATUS. FETCH 

004737 044154 JSR PC,GET :60 ~ REGISTER(S) WITH GET SUBROUTINE 
000404 BR 3$ :G0 TO 3$ IF NO ERROR 

000240 NOP RETURN HERE IF ERROR 

104000 EMT sERROR # DEFINED BY GET SUBROUTINE 
000137 014050 JMP 22% G0 TO 22$ IF ERROR 

032737 000001 001360 38: BIT #OMD ,RMMR11 71S DIAGNOSTIC MODE SET?? 
001011 BNE 5$ :YES 

012737 000001 001140 MOV #OMD ,SGDDAT EXPECTED STATUS 

013737 001360 001142 MOV RMMRII,$BDDAT ;RECEIVED STATUS 

104176 EMT 176 

000137 014050 JMP 22$ SKIP REST OF TEST IF DMD = 0 
032737 010000 001346 5S: BIT #MOL ,RMDSI s1S "MOL" = 0 7? 

001411 BEQ 6$ sves!! 

013737 001346 001142 MOV RMDS1,$BDDAT ;SETUP BAD DATA FOR TYPEOUT 
042737 167777 001142 BIC - #*CMOL , SBDDAT 

005037 001140 CLR SGDDAT ;SETUP GOOD DATA FOR TYPEOUT 
104177 EMT 177 

032737 020000 001346 68: BIT #PIP,RMDSI s¥8 PIP SET?? 

001012 BNE 7$ 

013737 001346 001142 MOV RMDS1,$BDDAT SETUP BAD DATA FOR TYPEOUT 
042737 157777 001142 BIC #*CPIP,$BDDAT 

012737 020000 001140 MOV #PIP,S$GDDAT sEXPECTED PIP SET 

104200 EMT 200 

032737 004000 001346 7%: BIT #WRL RMDSI 21S WRITE LOCK OFF?? 

001411 BEQ 8$ sves!' 

013737 001346 001142 MOV RMDS1,$BDDAT ;SETUP BAD DATA FOR TYPEOUT 
042737 173777 001142 BIC #*CWRL ,SBDDAT 

005037 001140 CLR SGDDAT . gsEXPECTED WRL = 0 

104201 EMT 201 

032737 040000 001376 8%: BIT #SKI,RMER21 1S SKI = 0 

001411 BEQ 9$ sYES!! 

013737 001376 001142 MOV RMER2Z1,$BDDAT  ;SETUP BAD DATA FOR TYPEOUT 
042737 137777 001142 BIC #*CSKI1,SBDDAT 

005037 001140 CLR $GDDAT :SKI SHOULD BE 0 

104202 EMT 202 

032737 000200 001376 9%: BIT #OVC ,RMER21 :1S DEVICE CHECK = 0?? 

001411 BEQ 10$ :YES!! 

013737 001376 001142 MOV RMER21,$BDDAT ;SETUP BAD DATA FOR TYPEOUT 
042737 177577 001142 BIC #*COVC,SBDDAT 

005037 001140 CLR $GDDAT :DVC SHOULD BE 0 

104203 EMT 203 


—m 
Zz 


MMAQ RMOS/3 
D1AGNO 
376 01 
37? O133e0 
013370 
013376 
013404 
013410 
013412 
013414 
013416 
378 013422 
379 013422 
013426 
013430 
013432 
013434 
380 013440 
381 013446 
382 013450 
383 013456 
384 013464 
385 013466 
386 013472 
387 013500 
388 013502 
389 013510 
390 013516 
391 013524 
e4 Oi s2¢e 
393 0135 
394 013536 
395 013544 
396 013552 
397 013556 
398 013560 
399 013566 
400 013570 
401 013576 
402 013604 
403 013612 
404 013614 
405 013622 
406 013624 
407 013632 
408 013640 
409 013646 
410 013650 
411 013656 
412 013660 
413 013666 
414 013674 
415 013702 
416 013704 
417 013712 
418 013714 
419 013722 
420 013730 
421 013734 
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014050 
044154 


014050 
000001 


000001 
001360 


014050 
010000 


001346 
167777 
010000 


020000 
001346 
157777 
001140 
004000 
001346 
173777 
004000 
040000 
001376 
137777 
040000 
000200 
001376 
177577 
000200 
000100 
001346 


177677 
001140 
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SEQ 0094 
10$: 
001543 MOVB @#RMMRI,PUTINX ;SETUP PUT INDEX TABLE 
001544 MOVB #200,PUTINX*+1  :SET TERMINATOR BYTE 
001434 MOV #OMD' MUR! MOC !MSER MDE 'MWP, RMMR10 :SET RMMR1 OUTPUT BUFFER = DMD‘ MUR'M 
JSR PC, PUT :G0 WRITE RMMR1 VIA PUT SUBROUTINE 
BR 11§ 760 TO 11$ IF NO ERROR 
NOP [RETURN HERE IF ERROR 
EMT SERROR DEFINED BY PUT SUBROUTINE 
-* JMP 22 760 TO 228 IF ERROR 
JSR PC,GET :GO0 READ REGISTER(S) WITH GET SUBROUTINE 
BR 126 760 TO 12$ IF NO ERROR 
NOP sRETURN HERE IF ERROR 
EMT ERROR # DEFINED BY GET SUBROUTINE 
JMP 228 :G0 TO 22$ IF ERROR 
001360 12$: BIT #OMD .RMMR1I 71S DIAGNOSTIC MODE SET?? 
BNE 125$ YES! ! 
001140 MOV #OMD ,SGDDAT SEXPECTED STATUS 
001142 MOV RMAR {1 SBDDAT TRECEIVED STATUS 
JMP 22$ :SKIP REST OF TEST IF DMD = 0 
001346 125$: BIT #MOL ,RMDS1 71S MOL = 12? 
BNE 13$ YES! ! 
001142 MOV RMDS1,$BDDAT :SETUP BAD DATA FOR TYPEOUT 
001142 BIC #*CMOL ,$BDDAT 
001140 mov #HOL , SGDDAT sEXPECTED MOL = 1 
001346 13%: BIT #PIP,RMDSI :1S PIP = 0? 
BEQ 14$ YES! ! 
001142 MOV RMDS1,$BDDAT ‘SETUP BAD DATA FOR TYPEOUT 
001142 BIC #*CPIP,SBDDAT 
CLR $GDDAT ZEXPECTED PIP STATUS 
EMT 200 
001346 14%: BIT #WRL,RMDSI :1S WRL SET?? 
BNE 15$ YES! ! 
001142 MOV RMDS1,$BDDAT ‘SETUP BAD DATA FOR TYPEOUT 
001142 BIC #*CWRL,SBDDAT 
001140 MOV #WRL,SGDDAT sEXPECTED GOOD STATUS 
001376 15$: BIT #SKI,RMERZ1 :1S SKI SET?? 
BNE 16$ YES!! 
001142 MOV RMER21,$BDDAT :BAD DATA FOR TYPEOUT 
001142 BIC #*CSKI,S$BDDAT 
001140 MOV #SK1,SGDDAT ZEXPECTED SKI ON 
001376 16$: BIT #OVC,RMERZI :1S DVC SET ?? 
BNE 17$ YES! ! 
001142 MOV RMER21,$BDDAT :BAD DATA FOR TYPEOUT 
001142 BIC #*CDVC,SBDDAT 
001140 MOV #OVC,SGDDAT ZEXPECTED DVC ON 
001346 17%: BIT #VV,RMDS1 :MUR SHOULD HAVE RESET VOLUME VALID 
BEQ 19$ sBRANCH IF IT DID 
001142 MOV RMDS1,$BDDAT [BAD DATA FOR TYPEOUT 
001142 BIC #°CVV, SBDDAT 
CLR $GDDAT :GOOD DATA FOR TYPEOUT 
EMT 204 
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000000 
044424 
79 104000 
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004737 
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000024 
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000137 014350 
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001376 


001142 
001140 
001142 


001226 


001543 
001544 
001434 


001543 
001544 
001434 


SEQ 0095 


a te PUT INDEX TABLE 
; SET TERMI NATOR BYTE 
T RMCS1 OUTPUT BUFFER = 


DRVCLR!GO 
0 wait RMCS1 VIA PUT SUBROUTINE 
NO ERROR 


ERROR 
;ERROR DEFINED BY PUT SUBROUTINE 
:G0 TO 22$ IF ERROR 


:GO READ REGISTER(S) WITH GET SUBROUTINE 
:G0 TO 21$ IF NO ERROR 
+ 44 ag HERE IF ERROR 
DEFINED ma GET SUBROUTINE 
TO 22$ IF ERR 
18 LBC SET ?? 


:BAD DATA FOR TYPEOUT 
;GOOD DATA FOR TYPEOUT 


SRR EATEEEE EEE EEEH 


SAREE AEE ATER EAE EERE KEKERKEARH ETE 


SCOPE CAL 

:START OF “Test 

s INITIALIZE STACK POINTER 

:RO = UNIBUS ADDRESS 

:(R1) = DEVICE BEING TESTED 
:;SET TEST NUMBER IN APT MAIL BOX 


:60 bt 12 ae tkhae CLEAR 
:G0 TO 1$ IF NO ERR 


RETURN HERE IF ERR 
;ERROR NUMBER DEF INED BY SUBROUTINE 
:60 TO 9$ IF ERROR 


;SETUP PUT INDEX TABLE 

SET TERMINATOR BYTE 

:SET Bey OUTPUT BUFFER = DMD 

360 WRITE RMMR1 VIA PUT SUBROUTINE 
:G0 TO 2$ 1F NO ERROR 

;RETURN HERE IF ERROR 

sERROR DEFINED 4 Pe SUBROUTINE 
:G0 TO 9$ IF ERRO 


SETUP PUT INDEX TABLE 


19$: 
MOVB = #RMCS1, PUTINX 
MOVB  #200,PUTINK#1 
MOV #DRVCLR!GO, RACS1O 
JSR PC, PUT 
BR 208 *60 TO 2 
NOP 
EMT 
JMP 228 
208: 
JSR PC,GET 
BR 218 
NOP 
EMT ZERROR & 
JMP 228 
21$: BIT #LBC,RMER21 
MOV RMER21,$BDDAT 
MOV #LBC, $GDDAT 
BIC #LBC, $BDDAT 
EMT 262 
228: 
SSTEST 12 PACK ACKNOWLEDGE TEST 
iéT12: 
SCOPE 
OP 
MOV #STACK,SP 
MOV $BASE,R 
MOV TSTQUE,R1 
MOV #12, $TESTN 
JSR PC, CNTCLR 
BR 1$ 
NOP 
EMT 
= JMP 9$ 
MOVB = #RMMR1,PUTINX 
MOVB  #200,PUTINX+1 
MOV #DMD .RMMR10 
JSR PC PUT 
BR 2$ 
NOP 
EMT 
JMP 9 
23: 
MOVB = #RMMR1, PUTINX 
MOVB #200, PUTINX#1 


MOV #0,RMMRIO 
JSR ee ePut 


JMP 9$ 


SET TERMINATOR BYTE 
7% a OUTPUT BUFFER = 0 
WRITE age vie PUT SUBROUTINE 
0 10 3$ 1F NO ERROR 
RETURN HERE IF ERROR 
i€R — DEF INED ed ve SUBROUTINE 
TO 9$ IF ERR 
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PACK ACKNOWLEDGE TEST SEQ 0096 
014214 3$: 
014214 112737 000000 001543 MOVB #RMCSI,PUTINX ;SETUP PUT INDEX TABLE 
014222 112737 000200 001544 MOVB #200,PUTINX+1 :SET TERMINATOR BYTE 
014230 012737 000023 001410 MOV #PAKACK'GO,RMCS10 -SET RMCS1 OUTPUT BUFFER = PAKACK!GO 
014236 006737 044426 JSR PC, PUT :60 WRITE RACs! VIA. PUT SUBROUT INE 
014242 000404 BR 4$ 0 10 4$ IF NO ERR 
014244 000240 NOP RETURN HERE Tr ERR 
014246 104000 EMT TERROR DEFINED BY Pur SUBROUTINE 
014250 000137 014350 JMP $ :GO TO 9$ IF ERROR 
014254 004737 044070 4$: JSR PC,GETSTS 
014269 004737 044766 JSR PC. TIMOUT :WAIT FOR COMPLETION 
014264 004737 044154 JSR PC GET 60 READ REGISTER(S) WITH GET SUBROUTINE 
014270 000403 BR 5$ 760 10 5$ IF NO ER ROR 
014272 000240 NOP SRETURN HERE IF ERROR 
014274 104000 EMT sERROR # DEFINED BY GET SUBROUTINE 
014276 000424 . BR 9$ >SKIP REMAINDER OF TEST 
014300 004737 045152 JSR PC,PRIERR 3G0 CHECK FOR PRIMARY ERRORS 
014304 000404 BR 6$ ;GO TO 6$ IF NO ERROR 
014306 000240 NOP SRETURN HERE IF ERROR 
014310 104000 EMT S ERROR # DEFINED BY PRIERR SUBROUTINE 
014312 004736 JSR PC,a(SP)+ ;GO BACK FOR MORE ERROR CHECKS 
eratia 000415 - BR 9$ ;SKIP TO NEXT TEST 
014316 004737 054526 JSR PC,ACKSTS :GO VERIFY PACK ACKNOWLEDGE 
014322 000404 BR 7$ :G0 TO 7$ IF NO ERROR 
014324 000240 NOP :RETURN HERE IF ERROR 
014326 104000 EMT ‘ERROR # DEFINED BY ACKSTS SUBROUTINE 
014330 004736 JSR PC,a(SP)+ 60 BACK FOR MORE ERROR CHECKS 
014332 000406 BR 9$ :SKIP TO NEXT TEST 
014334 7%: 
014334 004737 046004 JSR PC, SECERR :GO CHECK FOR SECONDARY ERRORS 
014340 000403 BR 9$ :GO TO 9$ IF NO ERROR 
014342 000240 NOP ;RETURN HERE IF ERROR 
014344 104000 EMT TERROR # DEFINED BY SECERR SUBROUTINE 
014346 004736 JSR PC,a(SP)+ 360 BACK FOR MORE ERROR CHECKS 
014350 9$: 
 ;eereeeeeeeeeeeeeeeeeee eee eek eee eeeeeeeeeteeeeAeeeee 

SSTEST 13 RECALIBRATE TEST 

WEARER RBBEBBARABBRABABSBASLAAAAAAAASARASRSSAERERARERERESBASRESAEESEERESESEAS I 
014350 1$113: 
014350 000004 SCOPE :SCOPE CALL 
014352 000240 NOP sSTART OF TEST 
014354 012706 001100 MOV MSTACK,SP sINITIALIZE STACK POINTER 
014360 013700 001276 MOV SBASE ,RO :RO = UNIBUS ADDRESS 
014364 013701 001464 MOY TSTQUE ,R1 S(R1) = DEVICE BEING TESTED 
014370 012737 000001 001206 MOV #1 STIMES ::D0 1 ITERATION 
014376 012737 000013 001226 MOV #18, $TESIN ::SET TEST NUMBER IN APT MAIL BOX 
014404 004737 043150 JSR TSTPRP :PREPARE DEVICE FOR TEST 
014410 050020 WORD 05603 [TASK DESCRIPTOR AS FOLL 


ie 
:CLEAR CONTROLLER & SELECT DEVICE 
PACK ACKNOWLEDGE IF VOLUME NOT VALID 
sVERIFY PACK ACKNOWLEDGE 


G 8 
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C2R 
113 RECALIBRATE TEST SEQ 0097 
014412 000404 BR 5$ ;G0 TO 5$ IF NO ERROR 
014414 000240 NOP RETURN HERE IF ERROR 
014416 104000 EMT TERROR # DEFINED abt TSTPRP SUBROUTINE 
014420 000137 014566 JMP 108 :G0 TO 10$ IF ERR 
462 014424 5$: 
463 014424 112737 000000 001543 MOVB  #RMCSI,PUTINX ;SETUP PUT INDEX TABLE 
14432 112737 000200 001544 MOVB  #200,PUTINX+1 :SET TERMINATOR BYTE 
014440 012737 000007 001410 MOV #RECAL'GO,RMCS10° ;SET RMCS1 OUTPUT BUFFER = RECAL!GO 
014446 004737 044424 JSR PC, PUT 3GO WRITE RMCS1 VIA PUT SUBROUTINE 
014452 000404 BR 6$ :G0 TO 6$ IF NO ERROR 
014454 00024 NOP :RETURN HERE IF ERROR 
014456 104000 EMT SERROR DEFINED BY PUT SUBROUTINE 
014460 000137 014566 JMP 10% :G0 TO 10$ IF ERROR 
464 014464 004737 044070 6$: JSR PC,GETSTS :GO SETUP FOR STATUS FETCH 
465 014470 004737 044766 JSR PC; TIMOUT [WAIT FOR COMPLETION 
467 014474 004737 044154 JSR PC,GET :60 READ REGISTER(S) WITH GET SUBROUTINE 
014500 000404 BR 7$ 0 TO 7$ IF NO ER ROR 
014502 000240 NOP ‘RETURN HERE IF ERR 
014504 104000 EMT TERROR # DEFINED BY GET SUBROUTINE 
014506 000137 014566 JMP 10$ :60 TO 10$ IF ERROR 
468 014512 7$: 
469 014512 004737 045152 JSR PC PRIERR ;G0 CHECK FOR PRIMARY ERRORS 
014516 000405 BR 8$ :G0 TO 8$ IF NO ERROR 
014520 000240 NOP ZRETURN HERE IF ERROR 
014522 104000 EMT ZERROR # DEFINED BY PRIERR SUBROUTINE 
014524 004736 JSR PC,a(SP)¢ :G0 BACK FOR MORE ERROR CHECKS 
014596 000137 014566 JMP 108 :G0 TO 10$ IF ERROR 
470 014532 8S: 
471 014532 004737 055322 JSR PC RCLSTS :GO VERIFY RECALIBRATE OPERATION 
014536 000405 BR 9$ :G0 TO 9$ IF NO ERR 
014540 000240 NOP [RETURN HERE IF ERROR 
014542 104000 EMT ZERROR # DEFINED BY RCLSTS SUBROUTINE 
014544 004736 JSR PC,a(SP)4 :GO BACK FOR MORE ERROR CHECKS 
014546 000137 014566 JMP 108, :GO TO 10$ IF ERROR 
472 014552 98: 
473 014552 004737 046004 JSR PC,SECERR :G0 CHECK FOR SECONDARY ERRORS 
014556 000403 BR 108 0 TO 10$ IF NO ERROR 
014560 000240 NOP RETURN HERE IF ERROR 
014562 104000 EMT ZERROR # DEFINED BY SECERR SUBROUTINE 
014564 004736 JSR PC,a(SP)¢ :GO BACK FOR MORE ERROR CHECKS 
4? 014566 108: 
4 
476 a3 (AE RBSRRBRSASZSASSASERRRRRRASASASESERERERR REE ERE EERE ERR REPRE E EROS | 
TeTEST 14 ABORT RECALIBRATE TEST 
PERRET EERE EATER KAKeeeKeeeeKeteee ee 
014566 1é114: 
014566 000004 SCOPE :SCOPE CALL 
014570 000240 NOP :START OF TEST 
014572 012706 001100 MOV #STACK,SP SINITIALIZE STACK POINTER 
014576 013700 001276 MOV S$BASE ,RO :RO = UNIBUS ADDRESS 
014602 013701 001464 MOV TSTQUE ,R1 = (RT) DEVICE BEING TESTED 
014606 012737 000001 001206 MOV #1, STIMES ::D0 1 ITERAT 
. 014614 012737 000014 001226 MOV #14, STESTN TISET TEST NUMBER IN APT MAIL BOX 
4 
478 014622 004737 043150 JSR PC, TSTPRP ;PREPARE DEVICE FOR TEST 
014626 054130 “WORD 054130 ZTASK DESCRIPTOR AS FOLLOWS: 
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479 
480 


48) 
482 


49% 
495 


Pa ee ee 
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SOCCOSOOSOOCOSCOCOSCOOCOOO SCOOCOCOCOOCOSOO COCO COOCOOCOOCOOOCOOCOOCOOOCOOOCOOCOOCOO 
tsa atatatatatateiatatatatatad ata atatatatatat ata ata atad atadad adabadadiabababadeDabababadad 


SESSSSSSSSSSSSSSSS SEEK LLLLE FEES 


000404 


000137 
112737 


000137 
112737 


004737 
004737 


004737 
004737 


000137 
004737 


000137 
004737 


104000 


015074 
000014 


044424 


015074 
000000 
000200 


000007 
044424 


015074 
044070 


044154 


015074 
020000 


044766 


044154 


015074 
045152 


015074 
061232 
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001543 
001544 
001424 


001543 
001544 
001410 


001346 


8$: 


9$: 


10$: 


118: 


12$: 


13$: 


14$: 


8$ 


15% 
#RMER1 ,PUTINX 


#200 ,PUTINX+1 
MUNS ,RMERIO 


15$ 


#RMCS1,PUTINX 
#200 ,PUTINX+1 


#RECAL'GO,RMCS10° 


PC ,PUT 
10% 


15$ 
PC,GETSTS 
PC GET 
11$ 


15$ 
#PIP,RMDSI 
12% 

214 

PC, TIMOUT 
PC,GET 

13% 


15$ 
PC,PRIERR 
14% 


PC,a(SP)+ 
15$ 


PC,STCDRVSTS 
16i$ 


:CLEAR CONTROLLER @ SELECT DEVICE 

; VERIFY CONTROLLER CLEAR OPERATION 
:PACK ACKNOWLEDGE IF VOLUME NOT VALID 
VERIFY PACK ACKNOWLEDGE 

sRECALIBRATE IF ‘'SKI"’ OR ‘PIP’ IS SET 
etn en ie am canon 


ERROR 
ERROR # DEFINED BY TSTPRP SUBROUTINE 
G0 TO 15$ IF ERROR 


SETUP PUT INDEX TABLE 

SET TERMINATOR BYTE 

;SET RMER1 OUTPUT BUFFER = UNS 

:GO WRITE RMER1 pt -_ SUBROUTINE 
:G0 TO 9$ IF NO ERR 

RETURN HERE IF ERR 

sERROR DEFINED BY PUT SUBROUT I NE 
G0 TO 15$ IF ERROR 


SETUP PUT INDEX TABLE 
:SET TERMINATOR BYTE 
ET RMCS1 OUTPUT BUFFER = RECAL!GO 
:60 writé RMCS1 VIA PUT SUBROUTINE 
:G0 TO 10$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR DEFINED BY PUT SUBROUTINE 


:60 TO 15$ IF ERROR 
TUP FOR STATUS FETCH 
GO READ REGISTER(S) WITH GET SUBROUTINE 
:GO0 TO 11$ IF NOE 
RETURN HERE IF ERROR 
ERROR # DEFINED BY GET SUBROUTINE 
:G0 TO 15$ IF ERROR 
ee THE DRIVE RECALIBRATE?? 


sWAIT FOR COMPLETION 


:GO READ REGISTER(S) WITH GET SUBROUTINE 
:G0 TO 13$ IF NO ~ ~ te 

RETURN HERE IF ERR 

SERROR # DEFINED BY °ET SUBROUTINE 

G0 TO 15$ IF ERROR 


:GO CHECK FOR PRIMARY ERRORS 
;G0 TO 14$ IF NO . ROR 

;RETURN HERE IF ERROR 

ERROR # DEFINED BY PRIERR SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 

:G0 TO 15$ IF ERROR 


G0 CHECK FOR i IN DRIVE STATUS 
:G0 TO 1418 IF N tn 

:RETURN HERE IF ERR 

ERROR # DEFINED BY SrcDRVSTS SUBROUTINE 


SEQ 0098 


ae RMOS/3/2 FCTNL TST 1 


ABORT RECALIBRATE TEST 


015052 
015054 
496 015060 
497 015060 
015064 
015066 
015070 
015072 
498 015074 
499 
500 
015074 
015074 
015076 
015100 
015104 
015110 
015114 
015122 
501 
502 015130 
015134 
015136 
015140 
015142 
015144 
503 015150 
504 015150 
015156 
015164 
015172 
015176 
015200 
015202 
015204 
505 015210 
506 015210 
015216 
015224 
015232 
015236 
015240 
015242 
015244 
507 015250 
508 015250 
015256 
015264 
015272 


004736 
000137 


004737 
3 


000137 
112737 


015074 
046004 


001100 

4 
000001 
000015 
043150 


015404 
000024 


044424 
015404 
000024 
044424 
015404 
000000 


044424 
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001206 
001226 


001543 
001544 
001434 


001543 
001544 
001434 


JMP 
1418: 


15$: 


PC ,a(SP)+ 
15$ 


PC ,SECERR 
15 


PC,a(SP)+ 


;G0 BACK FOR MORE ERROR CHECKS 
G0 TO 15$ IF ERROR 


:GO0 CHECK FOR SECONDARY ERRORS 
:G0 TO 15$ IF NO ER ~~» 

RETURN HERE IF ERROR 

;ERROR # DEFINED BY SECERR SUBROUTINE 
:G0 BACK FOR MORE ERROR CHECKS 


° PEPER AA AAAA ETE E THERE A ERE AAEREARATAAHRERARAAAKeAHeHeReTAeAeeeee 


IvC RECALIBRATE TEST 


; , UR Ree ee eeaeeeeeeeeeeeeHeeeeKeHeeeeeenekeeeeketeteneeneTeeese 


TEST 15 


$115: 
SCOPE 
N 


8$: 


9$: 


10$: 


#STACK,SP 
SBASE ,RO 
TSTQUE,R1 
#1, STIMES 
#15, STESTN 


PC, TSTPRP 
054130 


8$ 


15$ 


#RMMR1 ,PUTINX 
#200,PUTINX+1 
#OMD ,RMMR10 
PC, PUT 

9$ 


15$ 


#RMMR1 ,PUTINX 
#200 ,PUTINX+1 
#0, RMMR10 
PC,PUT 


10 
15$ 


#RMCS1, PUTINX 
#200 ,PUTINX+1 


#RECAL'GO,RMCS10° 


PC,PUT 


SCOPE CALL 

sSTART OF TEST 

s INITIALIZE STACK POINTER 

:RO_ = UNIBUS ADDRESS 

;(R1)_ = DEVICE BEING TESTED 

;:D0 1_ ITERATION 

::SET TEST NUMBER IN APT MAIL BOX 


;PREPARE DEVICE FOR TEST 

TASK DESCRIPTOR AS FOLLOWS: 

:CLEAR CONTROLLER & SELECT DEVICE 
VERIFY CONTROLLER CLEAR OPERATION 
;PACK gorge IF VOLUME NOT VALID 
;VERIFY PACK ACKNOWLEDGE 

:RECALIBRATE IF MoRIT OR ''PIP’’ IS SET 
VERIFY RECALIBRATION 

:G0 TO 8$ IF NO ee 

;RETURN HERE IF ERRO 

sERROR # DEFINED BY TSTPRP SUBROUTINE 
:G0 TO 15$ IF ERROR 


;SETUP PUT INDEX TABLE 

SET TERMINATOR BYTE 

SET RMMR1 OUTPUT BUFFER = DMD 

:GO WRITE RMMR1 od a SUBROUTINE 
:G0 TO 9$ IF NO ERR 

;RETURN HERE IF ERROR 

ERROR DEFINED BY PUT SUBROUTINE 
3:60 TO 15$ IF ERROR 


:SETUP PUT INDEX — 

7 SET } 5 ta etd BYTE 

;SET RMMR1 OUTPUT BUFFER = 0 

260 WRITE ey -_ SUBROUT INE 


ERROR 
sERROR DEFINED BY PUT SUBROUTINE 
:GO0 TO 15$ IF ERROR 


;SETUP PUT INDEX TABLE 
:SET eae BYTE 

ET RMCS1 OUTPUT BUFFER = RECAL!GO 
:60 writé RMCS1 VIA PUT SUBROUTINE 


SEQ 0099 


MMAO RMOS/3/2 FCTNL TST 1 


PPP se es res 


= eee ne ee WNAwro 


Bee Petite cae Wn 


RVSSRSS 


a 
oo 


525 
524 


004737 
004737 


000137 
004737 


104215 
004737 


C RECALIBRATE TEST 


044766 
044154 


015404 
045152 


oo 
—> — 
ow 


4 
00 


os 
oO 


046004 


001100 


000016 
043150 


J 
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001376 


001206 
001226 


11$: 


12$: 


13$: 


14$: 


15$: 


11$ 


15$ 
PC,GETSTS 
PC,TIMOUT 


PC,GET 
12 


15$ 
PC,PRIERR 


13$ 


PC,a(SP)+ 


PC,a(SP)+ 


F NO ERROR 
IF ERROR 
ED BY PUT SUBROUTINE 
F ERROR 
TATUS FETCH 
CAL TO COMPLETE 
I 
F 
] 
F 


STER(S) WITH GET SUBROUTINE 
NO He ~ 

RETURN HERE IF ERR 

ZERROR # DE a * Hi “GET SUBROUTINE 


760 TO 15$ I 
:GO CHECK FOR PRIMARY ERRORS 
; ine 


RROR 
;ERROR # DEFINED BY PRIERR SUBROUTINE 
+60 Be ise gE ERROR CHECKS 
ifvc SHOULD BE SET 
:1T 1S = GO CHECK SECONDARY ERRORS 


:GO CHECK FOR SECONDARY ERRORS 
:GO TO 15$ IF NO ERROR 

;RETURN HERE IF ERROR 

ERROR # DEFINED BY SECERR SUBROUTINE 
;GO BACK FOR MORE ERROR CHECKS 


,eeeenenkeeeee eee eeee eee eee eee eketeeeetheeeeeteteeere ee 


SaTEST 16 


ié116: 


JAE RECALIBRATE TEST 


'MARBBBAAASZASAASZAAAAASASLASLASRSESALAE SESSA S ERE SESE SE SERRE RRR EERE RSE ES | 


#STACK,SP 


#16, STESTN 


PC, TSTPRP 
054130 


70% 


1208 


#-1,RMOCO 
#-1,RMDAO 


;SCOPE CALL 

sSTART OF TEST 

sINITIALIZE STACK POINTER 

720 = UNIBUS ADDRESS 

7(R1) = DEVICE BEING TESTED 

3;D0 1 ITERATION 

3;SET TEST NUMBER IN APT MAIL BOX 


PREPARE DEVICE FOR TEST 

TASK DESCRIPTOR AS FOLLOWS: 

;CLEAR CONTROLLER & SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

;PACK ACKNOWLEDGE IF VOLUME NOT VALID 
;VERIFY PACK ACKNOWLEDGE 

;RECALIBRAT E IF “SK 1" OR *’PIP’' IS SET 
VERIFY RECALIBRATION 

60 TO 70$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR @ ae i? BY TSTPRP SUBROUTINE 
G0 TO 1208 IF ERROR 


:RMDC WILL BE ALL ONES 
:RMDA WILL BE ALL ONES 


SEQ 0100 


x 
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CZRMMAO RMOS/3/2 FCTNL TST 1 
T16 JAE RECALIBRATE TEST SEQ 0101 
528 015474 012737 000007 001410 MOV #RECAL'GO,RMCS10 
529 015502 012702 001543 MOV #PUTINKX, RO :R2 POINTS TO PUT INDEX TABLE 
530 015506 11272 000034 MOVB @RMOC, (R2)+ ;SETUP PUT INDEX TABLE 
531 015512 112722 000006 MOVB  &#RMDA.(R2)+ 
532 015516 112722 000000 MOVB  #RMCS1,(R2)4 
533 015522 W27ee 000200 MOVB  #200,(R2)4 
534 B1ae8s 004737 044424 JSR PC PUT 3G0 WRITE REGISTER(S) WITH PUT SUBROUTINE 
015532 000404 BR 80$ 760 TO 80$ IF NO ERROR 
015534 000240 NOP ;RETURN HERE IF ERROR 
015536 104000 EMT sERROR #@ ee ire ma PUT SUBROUTINE 
015540 000137 015646 JMP 1208 760 TO 120$ IF ERROR 
535 015544 004737 044070 80S: JSR PC,GETSTS SSETUP FOR STATUS FETCH 
838 015550 004737 044766 JSR PC,TIMOUT WAIT FOR GO TO RESET 
538 015554 004737 044154 JSR PC,GET - READ REGISTER(S) WITH GET SUBROUTINE 
015560 000404 BR 90$ 0 10 90$ IF NO ER ROR 
015562 000240 NOP RETURN HERE IF ERR 
015564 104000 EMT TERROR # DEFINED BY “GET SUBROUT INE 
015566 000137 015646 JMP 1208 760 TO 120$ IF ERROR 

539 015572 90S: 

540 015572 004737 045152 JSR PC,PRIERR 360 as FOR "ok Con — 
015576 000405 BR 100$ -60 TO 100$ IF NO ERR 
015600 000240 NOP RETURN HERE IF ERROR” 
015602 104000 EMT TERROR # DEFINED BY PRIERR SUBROUTINE 
015604 004736 JSR PC,a(SP)+ ;GO BACK FOR MORE ERROR CHECKS 
015606 13 015646 JMP 120% 760 TO 1208 IF ERROR 

541 015612 100$: 

542 015612 73 055322 JSR PC,.RCLSTS 3;GO0 VERIFY RECALIBRATE OPERATION 
015616 000405 BR 116$ :GO0 TO 110% IF NO ERROR 
015620 000240 NOP sRETURN HERE IF ERROR 
015622 1040 EMT sERROR # DEFINED BY RCLSTS SUBROUTINE 
015624 004736 JSR PC,a(SP)+ 60 BACK FOR MORE ERROR CHECKS 
015626 000137 015646 JMP 120$ :G0 TO 120$ IF ERROR 

543 015632 110$: 

544 015632 004737 046004 JSR PC,SECERR 360 ae FOR SECONDARY ERRORS 
015636 000403 BR 120$ :G0 TO 120$ IF NO ERROR 
015640 000240 NOP sRETURN HERE IF ERROR 
015642 104000 EMT TERROR # DEFINED BY SECERR SUBROUTINE 

15644 004736 JSR PC,a(SP)+ :G0 BACK FOR MORE ERROR CHECKS 

545 015646 120$: 

547 peeeeerereenereeereeereeeeeteeeeeeeeeeeaeeeeeeeteeeteneeeeeeeeee 
TSTEST 17 RECALIBRATE AT OFFSET 
peeeeeereaeeaeeereeeteeeetereReeneeaeeeeeeeaeeeeeeneeeeeeeeeeene 

015646 téT17: 

015646 000004 SCOPE :SCOPE CALL 

015650 000240 NOP [START OF TEST 

015652 012706 001100 MOV @STACK,SP INITIALIZE STACK POINTER 

015656 013700 001276 MOV SBASE ,R [RO = UNIBUS ADDRESS 

015662 013701 001464 MOV TSTQUE ,R1 (RI) = at BEING TESTED 

015 012737 000001 001206 MOV #1 STIMES ::DO 1 ITERATION 
= 015674 012737 000017 001226 MOV #17, STESTN ::SET TEST NUMBER IN APT MAIL BOX 
549 015702 004737 043150 JSR PC + ;PREPARE DEVICE FOR TEST 

015706 050020 “woRD 05002 [TASK DESCRIPTOR AS FOLLOWS: 


;CLEAR CONTROLLER & SELECT DEVICE 
PACK ACKNOWLEDGE IF VOLUME NOT VALID 


L 
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CZRMMAO RMOS/3/2 FC 
117 RECALIBRATE AT OFFSET SEQ 0102 
;VERIFY PACK ACKNOWL EDGE 

015710 000404 BR 5$ -GO0 TO S$ IF NO ERR 
015712 000240 NOP RETURN HERE IF ERRO 
015714 104000 EMT TER “7 DEFINED BY TSTPRP SUBROUTINE 

= O15716 000137 016124 = JMP 808 760 TO £08 IF ERROR 

$51 018733 112737 000000 001543 MOVB @#RMCS1,PUTINX  ;SETUP PUT INDEX TABLE 
015730 112737 000200 001544 MOVB #200,PUTINK+]  :SET TERMINATOR BYTE 
015736 012737 000015 001410 MOV #OFFSET:G0, mncsi0 RMCS1 OUTPUT BUFFER = OFFSET!GO 
015746 006737 044424 JSR PC, PUT uaité> ancSt VIA PUT SUBROUTINE 
015750 0004604 BR 10% A? "0 10$ IF NO ERROR 
015752 000240 NOP RETURN HERE IF ERROR 
015754 104000 EMT TERROR DEFINED BY PUT SUBROUTINE 
015756 000137 016124 JMP 80% :G0 TO 80S IF ERROR 

552 015762 108: 

553 015762 112737 000000 001543 MOVB @#RMCS1,PUTINX ;SETUP PUT INDEX TABLE 
015770 112737 000200 001544 MOvB #200, PUTINK+1 3s SET TERMINATOR BYTE 
015776 012737 000007 001410 MOV #RECAL'GO,RMCS10° SET RMCS1 OUTPUT BUFFER = RECAL!GO 
016004 0046737 0444246 JSR T 360 write “eo VIA PUT SUBROUTINE 
016010 000404 BR 208 760 TO 208 IF NO ER ROR 
016012 000240 NOP [RETURN HERE IF ERRO 
016014 104000 EMT TERROR DEFINED BY Pur SUBROUTINE 
016016 000137 016124 MP 808 [G0 TO 80$ IF ERROR 

554 016022 208: 

556 ; SETUP oy INDEX TABLE TO READ ALL REGISTERS 

557 016022 004737 044070 PC,GETSTS 3:60 TO SETSTS SUBROUT INE 

558 ;WAIT FGR COMMAND TO COMPLETE 

559 016026 004737 044766 JSR PC,TIMOUT 7G0 TO TIMOUT SUBROUTINE 

560 016032 004737 044154 JSR PC GET 260 READ REGISTER(S) WITH GET SUBROUTINE 
016036 000404 BR 508 GO TO 50S IF NO ERROR 
016060 000240 NOP “RETURN HERE IF ERROR 
016042 104000 EMT TERROR # DEFINED BY GET SUBROUTINE 
016064 000137 016124 JMP 808 :G0 TO 80$ IF ERRCR 

561 016050 508: 

562 016050 004737 045152 JSR PC, PRIERR 360 CHECK FOR ae noee ERRORS 
016054 000405 BR 608 :60 TO 60$ IF NO ERROR 
016056 000240 NOP ;RETURN HERE IF ERROR 
016060 104000 EMT sERROR # DEFINED BY PRIERR SUBROUTINE 
016062 004736 JSR PC,a(SP)¢ ;G0 BACK FOR MORE ERROR CHECKS 
016066 000137 016124 MP 808 760 TO 80$ IF ERROR 

563 016070 608: 

564 016070 004737 055322 JSR PC,RCLSTS 360 VERIFY oT ok tamed OPERATION 
016074 000405 BR 70% 760 TO 708 IF NO ERR 
016076 000240 NOP ;RETURN HERE IF ER — 
016100 104000 EMT sERROR # DEFINED BY RCLSTS SUBROUTINE 
016102 004736 JSR PC ,a(SP)+¢ 3;GO BACK FOR MORE ERROR CHECKS 
016106 000137 016124 MP 80s [G0 TO 808 IF ERROR 

565 016110 708: 

$66 016110 006737 046004 JSR PC, SECERR 7G0 CHECK FOR SECONDARY ERRORS 
016114 0004603 BR 80$ 760 TO 80$ IF NO ERROR 
016116 000240 [RETURN HERE IF ERROR 
016120 104000 EMT TERROR # DEFINED BY SECERR SUBROUTINE 
016122 004736 JSR PC ,a(SP)+¢ :G0 BACK FOR MORE ERROR CHECKS 

567 0161246 808: 


RAMAQ RMOS/3/2 FCTNL 


TST 1 
E 


RECALIBRATE AT OFFSET 


568 
569 


ww 
_~w 
-o 


16152 
16156 


oo oCOCOCOCOoOO 


016160 
016162 
016164 
016166 
572 016172 
573 016172 
574 016200 
575 816206 
576 016214 
577 016222 
578 016230 
579 016234 
580 016240 
581 016244 
582 016250 
583 016254 
584 016260 
016264 
016266 
016270 
585 016272 
586 016274 
587 016300 
588 
589 016304 
016310 
016312 
016314 
590 616316 
591 016320 
592 016320 
016324 
016326 
016330 
016332 
016354 
593 016340 


2588 
SF 


oooo 


— 
Se NNN 
oO 


we Wat 


000403 


S88 88 


016374 


044070 
044766 


044154 


045152 


016374 


" 
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001226 


001416 


[*TEST 20 


1§120: 


2s: 


3$: 


4$: 


5$: 


DRIVE CLEAR TEST 


SCOPE CALL 
sSTART OF TEST 


#STACK,SP SINITIALIZE STACK POINTER 

SBASE,R [RO = UNIBUS ADDRESS 

TSTQUE RI :(R1) = DEVICE BEING TESTED 

#20, STESTN :;SET TEST NUMBER IN APT MAIL BOX 

PC TSTPRP ;PREPARE DEVICE FOR TEST 

054130 [TASK DESCRIPTOR AS FOLLOWS: 
[CLEAR CONTROLLER & SELECT DEVICE 
[VERIFY CONTROLLER CLEAR OPERATION 
[PACK ACKNOWLEDGE IF VOLUME NOT VALID 
[VERIFY PACK ACKNOWLEDGE 
TRECALIBRATE IF "SKI OR PIP’ 1S SET 
[VERIFY RECALIBRATION 

2$ [60 TO 2$ IF NO ERROR 
[RETURN HERE IF ERROR 
TERROR # DEFINED BY TSTPRP SUBROUTINE 

218 [G0 TO 218 IF ERROR 

#0, RMDAO 

#DRVCLR'GO,RMCS10 

#-1,RMERIO 

#-1_RMERZO 

#LSC,RMERZO sDELETE FOR PASS 2 ETCH 

#PUTINK, R2 :R2 POINTS TO INDEX TABLE 

#RMDA, (R2)4 [RMDA CLEARS LBT 

WRMERD, (R2)+ 

@RMERT.(R2)4 

#RMCS1.(R2)4 

#200, (R2)+ 

PC PUT :GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

3$ 0 TO 3$ IF NO ERROR 


36 

RETURN HERE IF ERROR 

sERROR # DEFINED BY PUT SUBROUTINE 
21$ sESCAPE IF ERROR 


PC,GEISTS ;SETUP FOR STATUS FETCH 
PC. TIMOUT ;WAIT FOR DRIVE CLEAR TO COMPLETE 
PC,GET 7G0 READ REGISTER(S) WITH GET SUBROUTINE 
4$ :G0 TO 4$ IF NO ERROR 

:RETURN HERE IF ERROR 

SERROR # DEFINED BY GET SUBROUTINE 
21$ :SKIP REMAINDER OF TEST 
PC .PRIERR 7G0 CHECK FOR PRIMARY ERRORS 
5$ 760 TO 5$ IF NO ERROR 

TRETURN HERE IF ERROR 

TERROR # DEFINED BY PRIERR SUBROUTINE 
PC,a(SP)+ 7G0 BACK FOR MORE ERROR CHECKS 
21$ :G0 TO 21$ IF ERROR 


SEQ 0103 


+ lated RMOS/3/2 FCTNL ” 1 
120 DRIVE CLEAR TEST 


594 ser? seth d4 057064 


oO 
—_ 
oon 
S 


000137 016374 
004737 046004 


ww 
eS 
w 
loleleleleleleleleleloalo) 
Ok a oh oh ot 
Cen 


72 
374 


www 
ooo 
oon 


400 012706 001100 


004737 043150 


sad tat at at abd od od 
o 
QS 
o 
= 
oO 
—_ 
Ww 
~ 
o 
So 
o 
o 
— 
~Nm 
~~ 
eo 


0 1 

4 012737 000031 
2 

6 


6436 000137 016624 
6442 112737 000000 
6450 


602 
603 


6464 004737 044424 


476 000137 016624 
004737 044070 


004737 044154 


000137 016624 


004737 045152 
000405 
000240 


ee Yet f So 
MOF LOG Fh ff 

[=] 

S 

So 

Ls) 

P 

o 


PC ,DRVSTS 
6$ 


PC,a(SP)+ 


NOP TEST 


#STACK SP 


SBASE ,RO 
TSTQUE ,R1 


#21,$TESTN 
PC, TSTPRP 


054130 


70$ 


130% 


#RMCS1,PUTINX 
#200 ,PUTINX+1 
#NOP!GO,RMCS10 


PC,PUT 
80$ 


130$ 
PC,GETSTS 
PC,GET 
90$ 

130$ 

PC, PRIERR 


106$ 


N 
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RIVE CLEAR 
" canon 
NED BY DRVSTS a 
:60 Ae FOR — Demat CHECKS 
TO 218 IF ERR 


+60 CHECK FOR SECONDARY ERRORS 
NO ERROR 


; ERROR 
sERROR # DEFINED BY SECERR — 


:G0 BACK FOR MORE ERROR CHECKS 


SERA RER HARARE EERE TERA EEAEAEAAAAAAATHAEAREKKARHEAKRAKAee eee 


SERRATE EERE TEETER AEE RETA AAAAAEREREAEAEEEEKEREHEREE EAS 


sSCOPE CAL uf 

sSTART OF TEST 

SINITIALIZE STACK POINTER 
= UNIBUS ADDRESS 


S(R1) = DEVICE BEING TESTED 
:;SET TEST NUMBER IN APT MAIL BOX 


PREPARE DEVICE FOR TEST 

; TASK DESCRIPTOR AS FOLLOWS: 

;CLEAR CONTROLLER & SELECT DEVICE 
VERIFY CONTROLLER CLEAR OPERATION 
sPACK ACKNOWLEDGE IF VOLUME NOT VALID 
VERIFY PACK ACKNOWLEDGE 

s;RECALIBRATE IF ‘'SKI'’ OR ‘PIP’ IS SET 
VERIFY _RECALIBRATION 

:GO0 TO 70$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY TSTPRP SUBROUTINE 
:GO0 TO 130$ IF ERROR 


:SETUP PUT INDEX TABLE 


:SET TERMINATOR BYTE 

:SET RMCS1 OUTPUT BUFFER = NOP!GO 
:G0 WRITE — ais PUT SUBROUTINE 
:G0 TO 80$ IF NO ERR -_ 

;RETURN HERE IF ERRO 


ERROR DEFINED BY PUT SUBROUTINE 
:GO0 TO 130$ IF ERROR 
SETUP FOR STATUS FETCH 


:G0 READ wap yc WITH GET SUBROUTINE 
:G0 TO 90$ IF _N —¥ 


:RETURN HERE IF OER 
sERROR # DEFINED BY oer SUBROUTINE 
760 TO 130% IF ERROR 


:GO CHECK FOR yy ERRORS 
:G0 TO 100$ IF NO ERROR 
[RETURN HERE IF ERROR 


SEQ 0104 


hes 8 9 
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121 NOP TEST 


SEQ 0105 
016534 104000 EMT sERROR # DEFINED BY PRIERR SUBROUTINE 
016536 004736 JSR PC a(SP)+ [G0 BACK FOR MORE ERR OR CHECK 
016540 000137 016624 JMP 136$ 760 TO 1308 IF ERRO 

609 016544 1008: 

610 016544 051644 JSR PC, CMPERRSTS ;CHECK ANY ERRORS NOT MASKED 
016550 115760 «WORD NDTMSK sMASK FOR RMER1 
016552 000010 -WORD DPE [MASK FOR RMER2 
016554 000405 BR 110$ :GO TO 110$ IF NO ERROR 
016556 000240 NOP TRETURN HERE IF ERROR 
016560 104000 EMT sERROR # DEFINED BY CMPERRSTS SUBROUTINE 
016562 004736 JSR PC,a(SP)+ 3;G0 BACK FOR MORE ERROR CHECKS 
016564 000137 016624 JMP 136$ 760 TO 130$ IF ERROR 

611 016570 110$: 

612 016570 004737 061232 JSR PC,STCORVSTS :60 CHECK FOR yy # _ DRIVE STATUS 
016574 000405 BR 120$ “GO TO 120$ IF NO ERR 
016576 000240 NOP ‘RETURN HERE IF NERR on. 

016606 104000 EMT sERROR # DEFINED BY bse SUBROUTINE 
016602 004736 JSR PC,a(SP)+ ;GO BACK FOR MORE ERROR CHECKS 
016604 000137 016624 MP 130$ :G0 TO 130$ IF ERROR 

613 016610 120$: 

614 016610 004737 046004 JSR PC,SECERR 3G0 CHECK FOR gy ERRORS 
016614 000403 BR 130$ :60 TO 1308 IF N OER ROR 
016616 000240 NOP [RETURN HERE IF NERR 
016620 104000 EMT S ERROR # DEFINED BY OB ECERR SUBROUTINE 
016622 004736 JSR PC,a(SP)+ 760 BACK FOR MORE ERROR CHECKS 

615 016624 130$: 

61 SRE EEE AEE EEE AERA EERE EERE EERE EES 

s*TEST 22 OFFSET TEST 
FF RARE EAE EEE TEER ERE EERE EERE EEE 
016624 1§122: = 
016624 000004 SCOPE ;SCOPE CALL 
016626 000240 NOP sSTART OF TEST 
016630 012706 001100 MOV ASTACK,SP s INITIALIZE STACK POINTER 
016634 013700 Reseae MOV $BASE,RO RO = UNIBUS ADDRESS 
016640 013701 001464 MOV TSTQUE,R1 “(R1) = DEVICE BEING TESTED 
618 016644 012737 000022 001226 MOV #22,$TESTN +: SET TEST NUMBER IN APT MAIL BOX 
619 016652 004737 043150 JSR PC, TSTPRP sPREPARE DEVICE FOR TEST 
016656 054130 -WORD 054130 [TASK DESCRIPTOR AS FOLLOWS: 
‘CLEAR CONTROLLER & SELECT DEVICE 
;VERIFY CONTROLLER CLEAR OPERATION 
“PACK ACKNOWLEDGE IF VOLUME NOT VALID 
‘VERIFY PACK ACKNOWLEDGE 
sRECALIBRATE IF ‘'SKI'° OR “‘PIP’' IS SET 
s VERIFY RECALIBRATION 

016660 000404 BR 40$ 60 TO 40$ IF NO ERROR 

016662 000240 NOP TRETURN HERE IF ERROR 

016664 104000 EMT sERROR # DEFINED BY TSTPRP SUBROUTINE 

016666 000137 017150 JMP 100$ :G0 TO 100$ IF ERROR 

620 016672 40$: 

621 016672 112737 000000 001543 MOVB  #RMCS1,PUTINX ;SETUP PUT INDEX TABLE 
016700 112737 000200 001544 MOVB #200,PUTINX+1 :SET TERMINATOR BYTE 
016706 012737 000015 001410 MOV #OFFSET'GO,RMCS10 >SET RMCS1 OUTPUT BUFFER = OFFSET!GO 
016714 004737 044424 JSR PC,PUT :GO WRITE RMCS1 VIA PUT SUBROUTINE 
016720 000404 BR 50$ 760 TO 50$ IF NO ERRO 
016722 000240 NOP ;RETURN HERE IF ERROR 


a4 


9 
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T22 OFFSET TEST SEQ 0106 
016724 104000 EMT sERROR DEFINED BY PI'T SUBROUTINE 
016726 000137 017150 JMP 100$ 760 TO 100$ IF ERROR 

622 016732 004737 044070 50$: JSR PC,GETSTS ‘SETUP FOR STATUS FETCH 

623 016736 004737 044766 JSR PC. TIMOUT ‘WAIT FOR GO TO PRESET 

625 016742 004737 044154 JSR PC,GET :60 READ REGISTEI(S) out GET SUBROUTINE 
016746 000404 BR 60$ 0 60$ IF NO ERR 
016750 000240 NOP ERETURN HERE IF EPR Rea 
016752 104000 EMT sERROR # DEFINED BY GET SUBROUTINE 
016754 000137 017150 JMP 100$ 'GO TO 100$ IF ERROR 

626 016760 60S: 

627 016760 004737 045152 JSR PC, PRIERR :G0 CHECK FOR PRIMARY gi RRORS 
016764 000405 BR 70$ :G0 TO 70$ IF NO ERRO 
016766 00024 NOP ;RETURN HERE IF ERROR 
016770 104000 EMT TERROR # DEFINED BY PRIERR SUBROUTINE 
016772 004736 JSR PC,a(SP)+ 360 BACK FOR MORE ERROR CHECKS 
016774 000137 017150 JMP 106$ :G0 TO 100$ IF ERRO 

628 017000 032737 000001 001346 70$: BIT #0OM,RMDSI :OF FSET MODE ON?? 

629 017 001012 BNE 80$ 

630 017010 013737 001346 001142 MOV RMDS1,$BDDAT ‘BAD ‘DATA FOR TYPEOUT 

1 017 042737 177776 001142 BIC #*COM, SBDDAT 

017024 012737 000001 001140 MOV #OM,$GDDAT :GOOD DATA FOR TYPEOUT 

633 017032 104156 EMT 156 
017 032737 100000 001346 80%: BIT #ATA,RMDSI :WAS ATTENTION SET ?? 

635 017042 001012 BNE 90$ YES! ! 

636 017064 013737 001346 001142 MOV RMDS1,$BDDAT ;BAD DATA FOR TYPEOUT 

637 017052 042737 077777 001142 BIC #*°CATA, SBDDAT 

638 017060 012737 100000 001140 MOV #ATA,SGDDAT :GOOD DATA FOR TYPEOUT 

639 017066 104172 EMT 172 

640 017070 90S: 

641 017070 004737 051644 JSR PC,CMPERRSTS ;CHECK ANY ERRORS NOT MASKED 
017074 115760 . WORD NDTMSK sMASK FOR RMER1 
017076 000010 “WORD DPE :MASK FOR RMER2 
017100 000405 BR 91$ 360 TO 91$ IF NO ERROR 
017102 000240 NOP [RETURN HERE IF ERROR 
017104 104000 EMT sERROR # DEFINED BY CMPERRSTS SUBROUTINE 
017106 004736 JSR PC,a(SP)+ 60 BACK FOR MORE ERROR CHECKS 
017110 000137 017150 MP 100$ :G0 TO 100$ IF ERROR 

$42 017114 91$: 

643 017114 004737 061232 JSR PC,STCDRVSTS — ;GO CHECK FOR CHANGES IN DRIVE STATUS 
017120 000405 BR 92$ GO TO 92$ IF NO ERROR 
017122 000240 NOP “RETURN HERE IF ERROR 
017124 104000 EMT TERROR # DEFINED BY STCDRVSTS SUBROUTINE 
017126 004736 JSR PC,a(SP)+ :G0 BACK FOR MORE ERROR CHECKS 
017130 000137 017150 JMP 100$ :GO TO 100$ IF ERROR 

644 0171346 92$: 

645 017134 004737 046004 JSR PC, SECERR :60 CHECK FOR SECONDARY ERRORS 
017140 000403 BR 100$ 0 TO 100$ IF NO ERR 
017142 000240 NOP i OE TURN HERE IF ERROR. 
017144 104000 EMT TERROR # DEFINED BY SECERR SUBROUTINE 
017146 004736 JSR PC a(SP)+ :GO BACK FOR MORE ERROR CHECKS 

ou 017150 1008: 

or Petree eeeeeeeeteeeeee eee eee eee eee Kee eee Kee keKeeteeeetese 

SSTEST 23 GO/ATA TEST 


'DAAAARAAARA RBBB ASABRRRRAARRRARRAARRRERERERSRERE REESE RES RRR ESR RRR SE SD 


017150 18123: 


. 9 
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GO/ATA TEST SEQ 0107 
017150 000004 SCOPE :SCOPE CALL 
017152 000240 NOP sSTART OF TEST 
017154 HHA 001100 MOV WSTACK,SP sINITIALIZE STACK POINTER 
017160 013700 001276 MOV SBASE ,RO [RO = UNIBUS ADDRESS 
017164 013701 001464 MOV TSTQUE ,R1 :(R1) = DEVICE BEING TESTED 
- 017170 012737 000023 001226 MOV #23,$TESTN >;SET TEST NUMBER IN APT MAIL BOX 
650 017176 004737 043150 JSR PC, TSTPRP : PREPARE DEVICE FOR TEST 
017202 054130 -WORD 054130 TASK DESCRIPTOR AS FOLLOWS: 
[CLEAR CONTROLLER & SELECT DEVICE 
VERIFY CONTROLLER CLEAR OPERATION 
;PACK ACKNOWLEDGE IF VOLUME NOT VALID 
[VERIFY PACK ACKNOWLEDGE 
SRECALIBRATE IF ‘'SKI'' OR "'PIP’’ 1S SET 
; VERIFY RECALIBRATION 
017204 000404 BR 70% 360 TO 70$ IF NO — 
017206 000240 NOP SRETURN HERE IF ERR 
017210 104000 EMT sERROR # DEFINED BY i stPaP SUBROUT INE 
017212 000137 017570 JMP 180$ [G0 TO 180$ IF ERROR 
651 017216 708: 
652 017216 112737 000000 001543 MOVB #RMCS1,PUTINX ;SETUP PUT INDEX TABLE 
017224 112737 000200 001544 MOVB #200,PUTINX+1 ;SET TERMINATOR BYTE 
017232 012737 000015 001410 MOV #OF FSET'GO,RMCS10 ;SET RMCS1 OUTPUT BUFFER = OFFSET'‘GO 
017240 004737 044424 JSR PC,PUT 360 WRITE x ain PUT SUBROUTINE 
017244 000404 BR 80% :60 TO 80$ IF NO ERROR 
017246 000240 NOP sRETURN HERE IF ERROR 
017250 104000 EMT ;ERROR te leas BY PUT SUBROUTINE 
017252 000137 017570 JMP 180$ [G0 TO 180$ IF ERROR 
oo? 017256 004737 044070 80$: JSR PC,GETSTS sSETUP TO READ ALL REGISTERS 
655 017262 004737 044154 JSR PC,GET 3G0 READ a ok oe Be GET SUBROUTINE 
017266 000404 BR 90$ [G0 TO 90$ IF NO ERR 
017270 000240 NOP ‘RETURN HERE IF ER ROR 
017272 104000 EMT ERROR a ee ake GET SUBROUTINE 
017274 000137 017570 JMP 180$ GO TO 180$ IF ERROR 
656 0173 032737 100000 001346 90$: BIT #ATA,RMDSI 1S ATTENTION SET?? 
657 017306 001012 BNE 100$ YES! 
658 017310 012737 100000 001140 MOV #ATA,SGDDAT :600D. DATA FOR TYPEOUT 
659 017316 013737 001346 001142 MOV RMDSI,$BDDAT ;BAD DATA FOR TYPEOUT 
660 017324 042737 077777 001142 BIC #*°CATA, SBDDAT 
661 017332 104172 EMT 172 
662 017334 1008: 
663 017334 004737 051644 JSR PC, CMPERRSTS + CHECK ANY ae” NOT MASKED 
017340 000000 .WORD 0 MASK FOR RMER1 
017342 000000 ~WORD 0 “MASK FOR RMER2 
017344 000405 BR 110$ :GO TO 110$ IF NO ERROR 
017346 000240 NOP ;RETURN HERE IF ERROR 
017350 104000 EMT sERROR # DEFINED BY CMPERRSTS SUBROUTINE 
017352 004736 JSR PC,a(SP)+ 3;GO BACK FOR MORE ERROR CHECKS 
017354 000137 017570 JMP 180$ :GO TO 180$ IF ERROR 
664 017360 1108: 
665 017360 112737 000000 001543 MOVB  #RMCS1,PUTINX ;SETUP PUT INDEX TABLE 
017366 112737 000200 001544 MOVB #200,PUTINX+1 ;SET TERMINATOR BYTE 
017374 012737 000001 001410 MOV #NOP'GO,RMCS10 ;SET RMCS1 OUTPUT BUFFER = NOP'GO 
017402 004737 044424 JSR PC,PUT 3GO WRITE RMCS1 VIA ~ SUBROUTINE 
017406 000404 BR 126$ :G0 TO 120$ IF NO ERR 
017410 000240 NOP sRETURN HERE IF ERROR” 
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678 
679 


685 
686 


MNMNMN——— —- OOoOn 
ORNOOrROOSNRE 


30 


SOOCOCOCCOOCOCOCOOCOOCOCOOCOOCOOOCOOCOOOOOOOOCOOOCOOOOOOOOCOO 
par ee ne pane ee ene ae ae er er ee ee ee er er er er ee ee er er er ee Pe er ee er er ee er er Pe Se Or be er OK Oe er et 
~ 


104000 
000137 


004737 


000137 
004737 


000137 
004737 


004736 


000004 


012737 


004737 


017570 
044154 


017570 
045152 


017570 
100000 


001346 
077777 
001140 


051644 


017570 
061232 


017570 
046004 


001100 


000024 
043150 
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001346 


001142 
001142 


001226 


120$: 


130$: 


140$: 


150$: 


160$: 


170$: 


180$: 


180$ 

PC GET 

136$ 

180$ 

PC, PRIERR 
140$ 

PC ,a(SP)+ 
180$ 
#ATA,RMDSI 
150$ 
RMDS1,$BDDAT 
#*CATA, $BDDAT 
$GDDAT 

246 


PC,CMPERRSTS 
MSK 


PC,a(SP)+ 
180$ 


PC,SECERR 
180% 


PC,a(SP)+ 


NED BY PUT SUBROUTINE 
ERROR 


INE 
$1] 
EGISTER(S) Ah GET SUBROUTINE 
: IF NO ERR 
sERROR # DEFI 
:60 TO 180$ 1 


:GO CHECK FOR PRIMARY ERRORS 
:G0_ TO 140$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR # DEFINED BY PRIERR SUBROUTINE 
+ BACK FOR MORE Bes CHECKS 

0 TO 180$ IF ERR 
31S ATTENTION RESET?? 


YES 
“BAD DATA FOR TYPEOUT 
:GOGD DATA FOR TYPEOUT 


F ER ROR 
ED canoe GET SUBROUTINE 


; CHECK ANY ERRORS NOT MASKED 

:MASK FOR RMER1 

;MASK FOR RMER2 

:G0 TO 160$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY CMPERRSTS SUBROUTINE 
;GO BACK FOR MORE ERROR CHECKS 

:G0 TO 180$ IF ERROR 


:GO CHECK FOR CHANGES IN DRIVE STATUS 
:GO TO 170$ IF NO ERROR 

RETURN HERE IF ERROR 

;ERROR # DEFINED BY STCDRVSTS SUBROUTINE 
:GO BACK FOR MORE ERROR CHECKS 

:GO0 TO 180$ IF ERROR 


:GO CHECK FOR SECONDARY ERRORS 
:G0 TO 180$ IF NO ERROR 

RETURN HERE IF ERROR 

sERROR # DEFINED BY SECERR SUBROUTINE 
:GO BACK FOR MORE ERROR CHECKS 


peek eeKkkeeeKee eee eee eee eee eke eK KKK KKK KKK KKKKKK KKK eee eee 


SeTEST 24 


SARA A SALAALARARARRRSRASARSASASAASSSLESSSESESSSE SESS SERS RRS SESE SE SO 


18124: 


WRITE ATA TEST 


#STACK,SP 


Ba STESTN 
PC, TSTPRP 


SCOPE CALL 
START OF TEST 
: INITIALIZE STACK POINTER 
;RQ = UNIBUS ADDRESS 
:(R1) = DEVICE BEING TESTED 
:3SET TEST NUMBER IN APT MAIL BOX 


;PREPARE DEVICE FOR TEST 


SEQ 0108 
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687 
688 


707 
708 


017622 


oo OOCOCOCOCOOCOCOCOCOCOCO 


SNS NN GS 
NN 
_ 
= 


te ed ed ed eh oe ed dd 
~ 
NNN o 
WS WWT ~ 
MEO OO o 


pele jlelejelelelelelololo) 


020056 


054130 


000404 


000137 
112737 


004737 
004737 


WUAIWW SE OO NWS wo 
NNNOMNMNNNN 


104000 
000137 


004737 


000137 
004737 


000137 


020134 
000000 


044424 


020134 
044070 


044154 


020134 
100000 


001346 
077777 
100000 


000001 
177400 
001426 
044424 


020134 
044154 


020134 
045152 


020134 


se 
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001543 
001544 
001410 


001346 


001142 
001142 
001140 


001543 
001544 


70$: 


80$: 


90$: 


100$: 


110$: 


120$: 


« WORD 


054130 


70% 


150$ 


#RMCS1,PUTINX 
#200, PUTINX+1 


#OFFSET!GO,RMCS10 


PC,PUT 
80$ 


1508 
PC,GETSTS 
PC,GET 
90$ 


150$ 
#ATA,RMOSI 
100$ 
RMDS1,$BDDAT 


#*CATA,SBDDAT 
#ATA,SGDDAT 
172 


1(R1),R2 
#*CATNMSK ,R2 


R2,RMASO 


ARMAS , PUTINX 
+ gr atl caaatn 


rd 


110$ 


150% 
PC,GET 
120$ 


150% 
PC,PRIERR 


130$ 


PC, a(SP)+ 
156$ 


; TASK DESCRIPTOR AS FOLLOWS: 
CLEAR CONTROLLER & SELECT DEVICE 


;PACK ACKNOWLEDGE IF VOLUME NOT VALID 
:VERIFY PACK ACKNOWLEDGE 

;RECALIBRATE IF ‘'SKI'’ OR "PIP" IS SET 
VERIFY RECALIBRAT ION 


OT 
RETURN HERE IF ERROR 

sERROR # DEFINED BY TSTPRP SUBROUTINE 
360 TO 150$ IF ERROR 


;SETUP PUT INDEX TABLE 
;SET TERMINATOR BYTE 
zSET RMCS1 OUTPUT BUFFER = OFFSET!GO 
;GO WRITE RMCS1 VIA PUT SUBROUT INE 
:G0 TO 80$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR DEFINED BY PUT SUBROUTINE 
:G0 TO 150$ IF ERROR 
;SETUP TO READ ALL REGISTERS 


:60 READ REGISTER(S) WITH GET SUBROUTINE 
GO TO 90$ IF NO ee ~y 

;RETURN HERE IF ERR 

ERROR # DEFINED By oer SUBROUTINE 

:GO TO 150$ IF ERROR 

aie ATTENTION SET?? 


{BAD DATA FOR TYPEOUT 
:GOOD DATA FOR TYPEOUT 


:R2 = ATTENTION BIT 
CLEAR SIGN EXTENSION 


;PUT_RMAS BIT IN OUTPUT BUF 
sWRITE REGISTER INDEX IN TABLE 


;WRITE TERMINATOR 

:GO WRITE ath ak the - yg PUT SUBROUTINE 
:G0 TO 110$ IF N coken 

RETURN | HERE IF NERROR 

;ERROR # DEFINED BY PUT SUBROUTINE 

:G0 TO 150% IF ERROR 


:60 ~ REG Met WITH GET SUBROUTINE 
:G0 TO 120$ IF Paes — 

RETURN HERE IF NERR 

sERROR # DEFINED 4 “cer SUBROUT I NE 

:G0 TO 150$ IF ERRO 


:GO CHECK FOR PRIMARY ERRORS 
:GO TO 130$ IF NO ERROR 
RETURN HERE IF ERROR 


] 
] 
] 


:ERROR # DEFINED BY PRIERR SUBROUTINE 


:GO BACK FOR MORE ERROR CHECKS 
:GO TO 150% IF ERROR 


SEQ 0109 
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S 


NANA 
4 4 st os ss 
SARAw—osS 


FSCSSRNS Saws Snow 
FNMOAFLSNOF SMC ONOCTW 


720 
721 020162 
020166 


020170 


0 
722 02020 
723 saat) 


020260 
727 020264 
728 020272 


000137 
112737 


004737 
004737 


001012 


TST 1 
100000 
001346 


077777 
001140 


051644 


001100 


000028 
043150 


020526 
000000 


044424 


020526 
044070 


044154 


020526 
100000 


6 9 
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001346 1308: 
001142 
001142 


140: 


150$: 


#ATA,RMDS: 
140$ 
RMDS1,$BDDAT 
#*CATA,SBDDAT 
SGDDAT 

247 

PC, CMPERRSTS 


oo 


150$ 


PC,a(SP)+ 


HS ATTENTION RESET?? 
‘BAD "DATA FOR TYPEOUT 
;G00D DATA FOR TYPEOUT 


CHECK ANY ERRORS NOT MASKED 

sMASK FOR RMER1 

ae FOR RMER2 

:G0 TO 150$ IF NO — 

RETURN HERE IF ERROR 

sERROR # DEFINED BY CMPERRSTS SUBROUTINE 
:GO BACK FOR MORE ERROR CHECKS 


ERA E EEE EET EAE EAE eee 


:#TEST 25 


RRR ETAT TEETER 


18125: 


001226 


70$: 
001543 
001544 
001410 


80$: 


0013546 908: 


ERROR/ATA TEST 


ASTACK,SP 


#25, STESTN 


PC,TSTPRP 
054130 


70$ 


160$ 


#RMCS1,PUTINX 
#200, PUTINX+1 


SCOPE CALL 

START OF TEST 

INITIALIZE STACK POINTER 

:RO = UNIBUS ADDRESS 

:(R1) = DEVICE BEING TESTED 

:;SET TEST NUMBER IN APT MAIL BOX 


;PREPARE DEVICE FOR TEST 
: TASK DESCRIPTOR AS FOLLOWS: 
CLEAR CONTROLLER & SELECT DEVICE 
;VERIFY CONTROLLER CLEAR OPERATION 
sPACK ACKNOWLEDGE IF VOLUME NOT VALID 
:VERIFY PACK ACKNOWLEDGE 
;RECALIBRATE IF ‘’SKI"’ OR ‘PIP’ IS SET 
VERIFY RECALIBRATION 

:60 TO 70$ IF NO noe 

; RETURN HERE IF ERROR 

ERROR # DEFINED BY TSTPRP SUBROUTINE 
60 TO 160$ IF ERROR 


:SETUP PUT INDEX TABLE 
; SET TERMINATOR BYTE 


#OFFSET'GO, RMCS10 SET RMCS1 OUTPUT BUFFER = OFFSET!GO 
PC,PUT 260 WR 1té RMCS1 VIA PUT SUBROUTINE 
808 GO TO 80$ IF NO tw y 
“RETURN HERE IF ERROR 
o— a H Ra SUBROUT I NE 
160$ :G0 TO 160$ 1 ROR 
PC,GETSTS ‘oP TUP TO READ on REGISTERS 
PC,GET 3G0 READ th ak ate WITH GET SUBROUTINE 
90$ 366 TO 90$ IF N ° ioe ~% 
;RETURN HERE IF ERR 
“ERROR # DEFINED fl OfeT SUBROUTINE 
160$ :GO0 TO 160$ IF ERR 
#ATA,RMDSI 31S ATA SET?? 
100% sYES!! 


SEQ 0110 
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CZRMMAO RMOS 
125 ERROR/ATA TEST SEQ 0111 
729 020274 013737 001346 001142 MOV RMDSI,$BDDAT BAD DATA FOR TYPEOUT 
730 020302 042737 077777 001142 BIC #*CATA, SBDDAT 
731 020310 012737 100000 001140 MOV #ATA,SGDDAT :GOOD DATA FOR TYPEOUT 
732 020316 104172 EMT 172 
733 020320 100$: 
734 020320 112737 000014 001543 MOVB #RMERI,PUTINX ;SETUP PUT INDEX TABLE 
020326 112737 000200 001544 MOVB #200,PUTINX+1 :SET TERMINATOR BYTE 
020334 012737 040000 001424 MOV #UNS ,RMER10 >SET RMER1 OUTPUT BUFFER = UNS 
020342 004737 044424 JSR PC, PUT [GO WRITE RMER1 VIA PUT SUBROUTINE 
020346 000404 BR 116$ ‘GO TO 110$ IF NO ERROR 
020350 000240 NOP 3 ‘RETURN HERE IF ERROR 
020352 104000 EMT TERROR DEFINED BY PUT SUBROUTINE 
020354 000137 020526 JMP 160$ 760 TO 160$ IF ERROR 
735 020360 110$: 
736 020360 112737 000000 001543 MOVB  #RMCS1,PUTINX ;SETUP PUT INDEX TABLE 
020366 112737 000200 001544 MOVB #200,PUTINX+1  :SET TERMINATOR BYTE 
020374 012737 000001 001410 MOV #NOP!'GO,RMCS10 SET RMCS1 OUTPUT BUFFER = NOP!GO 
020402 004737 044424 JSR PC,PUT :GO WRITE RMCS1 VIA PUT SUBROUTINE 
020606 000404 BR 120$ :GO TO 120$ IF NO ERROR 
020410 000240 NOP [RETURN HERE IF ERROR 
020412 104000 EMT [ERROR DEFINED BY PUT SUBROUTINE 
020414 000137 020526 JMP 160$ :G60 TO 160$ IF ERROR 
737 020420 1208: 
738 020420 004737 044154 JSR PC,GET :GO READ REGISTER(S) WITH GET SUBROUTINE 
020424 000404 BR 130$ :60 TO 130$ IF NO ER RROR 
020426 000240 NOP SRETURN HERE IF ERR 
020430 104000 EMT sERROR # te BY OfeT SUBROUTINE 
020432 000137 020526 JMP 160$ 760 TO 160$ IF ERROR 
739 020436 032737 100000 001346 130%: BIT #HATA,RMDSI :1S ATA STILL SET?? 
740 020444 001012 BNE 140$ YES! 
741 020446 012737 100000 001140 MOV #HATA, $GDDAT G00D “DATA FOR TYPEOUT 
742 020454 013737 001346 001142 MOV RMDS1,$BDDAT BAD DATA FOR TYPEOUT 
743 020462 042737 077777 001142 BIC #°CATA, $BDDAT 
744 020470 104250 EMT 250 
745 020472 140$: 
746 020472 004737 061232 JSR PC,STCDRVSTS | ;GO CHECK FOR CHANGES IN DRIVE STATUS 
020476 000405 BR 150$ :G60 TO 150% IF NO ERR 
020500 000240 NOP ‘RETURN HERE IF eRRORS 
020502 104000 EMT TERROR # DEFINED BY STCDRVSTS SUBROUTINE 
020504 004736 JSR PC,a(SP)+ 3;GO BACK FOR MORE ERROR CHECKS 
020506 000137 020526 JMP 160$ :GO TO 160$ IF ERROR 
747 020512 150$: 
748 020512 004737 046004 JSR PC, SECERR :GO CHECK FOR SECONDARY ERRORS 
020516 000403 BR 160$ :G0 TO 160$ IF NO ERROR 
020520 000240 NOP *RETURN HERE IF ERROR 
020522 104000 EMT TERROR # DEFINED BY SECERR SUBROUTINE 
020524 004736 JSR PC,a(SP)+ *GO BACK FOR MORE ERROR CHECKS 
749 020526 160$: 
751 RARER KAKA Kee eee 
SSTEST 26 PROGRAM INTERRUPT TEST 
s 'WMOABASBBSBSBABSZASAASABAAASZSALASLAASAALAAAASAASASLASSROSEABAEESERESESSSAASESSLES I 
020526 15126: 
020526 000004 SCOPE :SCOPE CALL 
020530 000240 NOP ;START OF TEST 
020532 012706 001100 MOV #STACK,SP sINITIALIZE STACK POINTER 
020536 013700 001276 MOV SBASE ,RO *RO = UNIBUS ADDRESS 
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020542 
020546 

752 
753 020554 
020560 


020562 


775 020704 

776 

777 020712 
020716 


020724 
778 020730 
779 020730 
020736 


784 021004 


000137 
004737 
0 


000002 


001464 
000026 


043150 


021216 


001272 
177400 


000002 


177437 


000300 
021014 


021006 
177777 
000016 
000200 


044424 


021216 
000000 


044424 


021216 


044766 
044070 
000205 


gh 
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001226 


000002 


001426 
001543 
001543 


70$: 


80$: 


90$: 


100$: 


MOV 
MOV 


JSR 
. WORD 


70$ 


210% 


$VECT1,R2 
#°C<377>,R2 
(R2),R4 
2(R2) RS 
#150$, (R2) 
#PR6,2(R2) 
$VECT1+1,R3 
— 


R3 
80$ 


R3 
#*CPR7,R3 
#PR6,-(SP) 


#RMAS , PUTINX 
#200, PUTINX 


PC,PUT 
90$ 
210% 


#RMCS1,PUTINX 
#200, PUTINX+1 


ROFFSET GDI, RMCSi0 


1068. 


210% 


PC,TIMOUT 
PC GETSTS 
#205,R3 


ZERROR # 


:(R1) = DEVICE BEING TESTED 
;;SET TEST NUMBER IN APT MAIL BOX 


sPREPARE DEVICE FOR TEST 

: TASK DESCRIPTOR AS FOLLOWS: 
CLEAR CONTROLLER & SELECT DEVICE 
;VERIFY CONTROLLER CLEAR OPERATION 


sPACK ACKNOWLEDGE IF VOLUME NOT VALID 


:VERIFY PACK ACKNOWLEDGE 


sRECALIBRATE IF ‘'SKI'’ OR ‘'PIP’’ IS SET 


VERIFY _RECALIBRATION 
:GO0 TO 70$ IF NO ERROR 
iy Sah angel HERE IF ERROR 
DEFINED BY TSTPRP SUBROUTINE 
:G0 TO 210$ IF ERROR 


;R2 = INTERRUPT ADDRESS 
;CLEAR SIGN EXTENSION 
SAVE HANDLER ADDRESS 
;SAVE HANDLER PRIORITY 
WRITE HANDLER ADDRESS AND 
PRIORITY FOR THIS TEST 
3R3 = INTERRUPT LEVEL 
:CLEAR SIGN EXTENSION 


:DECREMENT INTERRUPT LEVEL 


sERROR # 


+3 PUSH A#PRO ON STACK 


:CLEAR ALL ATTENTIONS 


G0 WRITE gig yt WITH PUT SUBROUTINE 


:G0 TO 90$ IF N 
RETURN HERE IF 


ERROR 
ERROR DEFINED BY PUT SUBROUTINE 
:G0 TO 210% IF ERROR 


s:WAIT FOR COMPLETION 
SETUP TO ey ALL REGISTERS 
:R TIMEOUT 


3 = GROSS 


:DROP CP PRIORITY 


ERROR 
DEFINED BY PUT SUBROUTINE 
:G0 TO 210$ IF ERROR 


: SETUP PUT INDEX TABLE 

SET TERMINATOR BYTE 
SET RMCS1 OUTPUT BUFFER = 
268 WRITE RMCS1 VIA ai SUBROUTINE 


OFFSET!GO!IE 


SEQ 0112 


J 9 
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126 PROGRAM INTERRUPT TEST SEQ 0113 

785 021006 005303 1108: DEC R3 : TIMEOUT THE INTERRUPT 

786 021010 100376 BPL 1108 

M4 ; TIMEOUT BEFORE INTERRUPT 

790 021012 000002 RT] :RAISE CP PRIORITY 

791 021014 1208: 

792 021014 004737 044154 JSR PC,GET :GO0 READ REGISTER(S) WITH GET SUBROUTINE 
021020 000404 BR 130$ :GO TO 130$ IF NO ER ROR 
021022 000240 NOP RETURN | HERE IF ERROR 
021024 104000 EMT TERROR # DEFINED BY got SUBROUT INE 
021026 000137 021216 JMP 2108 :G0 TO 210$ IF ERRO 

793 021032 1308: 

794 021032 004737 045152 JSR PC, PRIERR :GO CHECK FOR PRIMARY ERRORS 
021036 000405 BR 140% :GO TO 140$ IF NO ERROR 
021040 000240 NOP sRETURN HERE IF ERROR 
021042 104000 EMT TERROR # DEFINED BY PRIERR SUBROUTINE 
021044 004736 JSR PC,a(SP)+ :GO0 BACK FOR MORE ERROR CHECKS 
021046 000137 021216 JMP 210$ :GO TO 210$ IF ERROR 

795 021052 1408: 
021052 104251 EMT 251 

796 021054 000423 BR 180$ 

798 021056 022626 1508: CMP (SP)+,(SP)+ sADJUST STACK 

799 021060 012716 021066 MOV #160$, (SP) [CHANGE RETURN ADDRESS 

800 021064 000002 RT] sRAISE CP PRIORITY 

801 021066 1608: 

802 021066 004737 044154 JSR PC ,GET :GO READ REGISTER(S) WITH GET SUBROUTINE 
021072 000404 BR 170$ :GO0 TO 170$ IF NO ERROR 
021074 000240 NOP :RETURN HERE IF ERROR 
021076 104000 EMT sERROR # DEFINED BY GET SUBROUTINE 
021100 000137 021216 JMP 210$ :G0 TO 210$ IF ERROR 

803 021104 1708: 

804 021104 004737 045152 JSR PC, PRIERR :G0 CHECK FOR PRIMARY ERRORS 
021110 000405 BR 180$ GO TO 180$ IF NO ERROR 
021112 000240 NOP “RETURN HERE IF ERROR 
021114 104000 EMT SERROR # DEFINED BY PRIERR SUBROUTINE 
021116 004736 JSR PC,a(SP)+ :GO0 BACK FOR MORE ERROR CHECKS 
021120 000137 021216 JMP 210$ :GO TO 210$ IF ERROR 

805 021124 1808: 

806 021124 004737 051644 JSR PC,CMPERRSTS :CHECK ANY ERRORS NOT MASKED 
021130 115760 .WORD NDTMSK >MASK FOR RMER1 
021132 000010 .WORD DPE :MASK FOR RMER2 
021134 000405 BR 190$ 760 TO 190$ IF NO ERROR 
021136 000240 NOP sRETURN HERE IF ERROR 
021140 104000 EMT TERROR # DEFINED BY CMPERRSTS SUBROUTINE 
021142 004736 JSR PC,a(SP)+ :GO BACK FOR MORE ERROR CHECKS 
021144 000137 021216 JMP 210$ 760 TO 210$ IF ERROR 

807 021150 1908: 

808 021150 004737 061232 JSR PC, STCDRVSTS 760 CHECK FOR CHANGES | IN DRIVE STATUS 
021154 000405 BR 200$ :G0 TO 200$ IF N 0 ERR 
021156 000240 NOP ae HERE IF PRR 19 
021160 104000 EMT sERROR # DEFINED BY STCDRVSTS SUBROUTINE 
021162 004736 JSR PC, a(SP)+ :GO0 BACK FOR MORE ERROR CHECKS 
021164 000137 021216 JMP 210% :GO TO 210$ IF ERROR 

809 021170 2008: 

810 021170 004737 046004 JSR PC, SECERR :GO0 CHECK FOR SECONDARY ERRORS 
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PROGRAM INTERRUPT TEST SEQ 0114 
021174 000405 BR 205$ :G0 TO 205$ IF NO ERROR 
021176 000240 NOP ‘RETURN HERE IF ERROR 
021200 104000 EMT ZERROR # DEFINED BY SECERR SUBROUTINE 
021202 004736 JSR PC ,a(SP)+ 3G0 BACK FOR MORE ERROR CHECKS 
021204 000137 021216 JMP 2168 :G0 TO 210$ IF ERROR 
811 021210 205$: 
812 021210 010412 MOV RG, (R2) 
813 021212 010562 000002 MOV R5.2(R2) 
B14 021216 2108: 
816 STRATE 
S*TEST 27 INHIBIT INTERRUPT TEST 
CRRA E EERE E EE T EERE TAT eA 
021216 1$127: 
021216 000904 SCOPE ZSCOPE CALL 
021220 000240 NOP :START OF TEST 
021222 012706 001100 MOV ASTACK,SP sINITIALIZE STACK POINTER 
021226 013700 001276 MOV $BASE RO :RO = UNIBUS ADDRESS 
021232 013701 001464 MOV TSTQUE ,R1 :(R1) = DEVICE BEING TESTED 
aes 021236 012737 000027 001226 MOV #27,$TESTN :;SET TEST NUMBER IN APT MAIL BOX 
818 021244 004737 043150 JSR PC,TSTPRP ;PREPARE DEVICE FOR IEST 
021250 054130 .» WORD 054130 ; TASK DESCRIPTOR AS FOLLOWS: 
;CLEAR CONTROLLER & SELECT DEVICE 
;VERIFY CONTROLLER CLEAR OPERATION 
;PACK ACKNOWLEDGE IF VOLUME NOT VALID 
;VERIFY PACK ACKNOWLEDGE 
;RECALIBRATE IF ‘’SKI*’ OR ''PIP’’ IS SET 
[VERIFY RECALIBRATION 
021252 000404 BR 70$ :GO TO 70$ IF NO ERROR 
021254 000240 NOP [RETURN HERE IF ERROR 
021256 104000 EMT sERROR # DEFINED BY TSTPRP SUBROUTINE 
021260 000137 021564 JMP 2108 :GO TO 210$ IF ERROR 
819 021264 708: 
820 021264 113702 001272 MOvB S$VECT1,R2 3R2 = INTERRUPT ADDRESS 
821 021270 042702 177400 BIC #°C<377>,R2 :CLEAR SIGN EXTENSION 
822 021274 011204 MOV (R2),R4 ;SAVE HANDLER ADDRESS 
823 021276 016205 000002 MOV 2(R2),R5 [SAVE HANDLER PRIORITY 
824 021302 012712 021524 MOV #1308, (R2) ;WRITE HANDLER ADDRESS AND 
825 021306 012762 000300 000002 MOV #PR6,2(R2) :PRIORITY FOR THIS TEST 
826 021314 113703 001273 MOVB = $VECT1+1,R3 =R3 = INTERRUPT LEVEL 
827 021320 042703 177400 BIC #*C<377>,R3 ;CLEAR SIGN EXTENSION 
828 021324 012746 000300 MOV #PR6,-(SP) os H #PR6 ON STACK 
829 021330 012746 021556 MOV #180$,-(SP) >:PUSH #180$ ON STACK 
830 021334 010346 MOV R3,-(SP) :;PUSH R3 ON STACK 
831 021336 005316 DEC (SP) 
832 021340 100001 BPL 80 
833 021342 005016 CLR (SP) 
834 021344 042716 177437 80$: BIC #*CPR7, (SP) 
B35 021350 012746 021512 MOV #120$,-(SP) ::PUSH #120$ ON STACK 
836 021354 010346 MOV R3,-(SP) 37;PUSH R3 ON STACK 
837 021356 012746 021440 MOV #160$,-(SP) >:PUSH #100$ ON STACK 
838 021362 004737 044070 JSR PC,GETSTS :SETUP TO READ ALL REGISTERS 
B40 021366 112737 000000 001543 MOVB #RMCS1,PUTINX ;SETUP PUT INDEX TABLE 
021374 112737 000200 001544 MOVB #200,PUTINX*1 SET TERMINATOR BYTE 
021402 012737 000115 001410 MOV #OFFSET'GO'IE,RMCS10 7SET RMCS1 OUTPUT SUFFER = OFFSET'!GO'IE 


: “eee RMOS/3/2 FCTNL TST 1 


INHIBIT INTERRUPT TEST 


021410 


440 
1442 


oa 
Nm 


871 


004737 
000404 


044424 


021564 


044766 
000205 


000000 001543 
000200 001544 
000000 001410 
044424 


021564 
000205 


021526 


021536 


044154 


021564 


000002 


001100 
001276 


001464 
000050 001226 


90$: 


100$: DEC 


1108: MOV 


120$: MOV 
125$: DEC 


130$: CMP 
140$: CMP 


160$: 


170$: 


180$: MOV 
2108: 


PC, PUT 
90$ 

210 

PC, TIMOUT 
#205,R3 

R3 

1008 
#RMCS1,PUTINX 
#200,PUTINK+1 
#NOP.RMCS10 
PC, PUT 

116 

2108 

#205,R3 
#140$, (R2) 

R3 

125$ 
(SP)+,(SP)+¢ 


(SP)+,(SP)¢ 
#1608, (SP) 


PC,GET 
170% 
2108 
252 


R4,(R2) 
R5,2(R2) 
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:GO WRITE RMCS1 VIA PUT SUBROUTINE 
:60 TO 90$ IF ,e . ROR 

RETURN HERE IF ERROR 

sERROR DEFINED BY mn SUBROUT I NE 


:G0 TO 210$ IF ERROR 


WAIT FOR GO = 0 
:R3 = GROSS TIMER 


; DELAY ‘ 


;SETUP PUT INDEX TABLE 

:SET TERMINATOR BYTE 

:SET RMCS1 OUTPUT BUFFER = NOP 

:G0 WRITE RMCS1 VIA PUT SUBROUTINE 
:GO0 TO 110$ IF NO ERROR 

;RETURN HERE IF ERROR 

ERROR DEFINED BY PUT SUBROUTINE 


:G0 TO 210% IF ERROR 


NO ERROR 


sADJUST STACK 
sADJUST STACK 


:G0 READ ga WITH GET SUBROUTINE 


:GO0 TO 170$ IF N 
RETURN HERE IF ERROR 


SERROR # DEFINED BY GET SUBROUTINE 
:G0 TO 210$ IF ERROR 


peeeeerrereneeeeeeeeeteterereeeeeeeeeeteeeeeeeeeeetineteeeeteeee 


RETURN TO CENTERLINE TEST 


ZSTEST 30 
18130: 


STACK SP 
SBASE,R 
TSTQUE ,R1 
#30, S$TESIN 


SCOPE CALL 
START OF TEST 
INITIALIZE STACK POINTER 
:RO = UNIBUS ADDRESS 
Z(R1) = DEVICE BEING TESTED 
:;SE1 TEST NUMBER IN APT MAIL BOX 


SEQ 0115 


872 021612 
021616 


021620 


021626 
873 021632 
874 OS tees 


02 
875 021672 
876 021676 
877 
878 021702 
021706 


wnN— 


Seseseess 
SOnouw 


022046 


004737 
054130 


ey ot tery pe 
—f£—-Owof— 
MRRIw—wFRIWU' 


R 


004736 
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043150 


022106 


000000 
4 4464 


022106 
044070 
044766 


044154 


022106 
045152 


022106 
000001 


001140 
001346 
177776 
100000 
001346 


077777 
100000 


051644 


022106 
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001543 
001544 
001410 


001346 
001142 
001142 
001346 
001142 


001142 
001140 


708: 


80$: 


90$: 


100$: 


110$: 


120$: 


70% 


1508 

#RACS1 ,PUTINX 
#200, PUTINX+1 
#RTC!GO,RMCS10 
PC ,PuT 


80$ 


1508 
PC,GETSTS 
PC, TIMOUT 


PC,GET 
90$ 


1508 
PC,PRIERR 
100% 


PC,a(SP)+ 
#0OM,RMDS1 
110% 

SGDDAT 

RMDSi ,$BDDAT 
#*COM, SBDDAT 
157 
#ATA,RMDSI 
120% 
RMDS1,$BDDAT 
#*CATA,SBDDAT 
#ATA,SGDDAT 
171 

PC, CMPERRSTS 
ND TMSK 

DPE 

130% 


PC, a(SP)+ 
156$ 


;PREPARE DEVICE FOR TEST 

;TASK DESCRIPTOR AS FOLLOWS: 

;CLEAR CONTROLLER @ SELECT DEVICE 
VERIFY CONTROLLER -— OPERATION 


“VERIFY PACK ACKNOW 


F VOLUME NOT VALID 


LEDGE 
;RECALIBRATE IF SKI" OR ''PIP’’ IS SET 


; VERIFY _RECALIBRATION 
NO ERROR 


:G0 TO 708 IF 
;RETURN HERE IF 


ERROR 
ERROR # DEFINED a TSTPRP SUBROUTINE 


360 TO 1508 IF ERROR 


SETUP PUT INDEX TABLE 


SET TERMINATOR BYTE 
:SET RMCS1 OUTPUT BUFFER = 


RTC!GO 


7G0 WRITE RMCS1 me tan _ SUBROUTINE 


:60 TO 80$ IF N 


;RETURN HERE IF ERROR 


;ERROR DEFINED BY PUT SUBROUTINE 


360 TO 150$ IF ERROR 


:SETUP FOR STATUS FETCH 
sWAIT FOR RECAL TO COMPLETE 


:GO READ REGISTER(S) WITH GET SUBROUTINE 
:60 NO ERROR 


0 90$ IF 


RETURN HERE IF ER 


ROR 
ERROR # DEFINED e. GET SUBROUTINE 


:G0 TO 150$ IF ERRO 


+60 CHECK FOR PRIMARY ERRORS 
NO ERROR 


: ERROR 
ERROR # DEFINED BY PRIERR SUBROUTINE 
:GO BACK FOR MORE i CHECKS 


:G0 TO 1508 IF E 


SOF FSET MODE OFF? 
YES! 


6000 “DATA FOR TYPEOUT 


;BAD DATA FOR TYPEOUT 


rtp ATTENTION SET ?? 
;BAD DATA FOR TYPEOUT 


;GOO0D DATA FOR TYPEOUT 


MASK 
zMASK FOR R 


:CHECK ANY i NOT MASKED 
FOR RMER1 


MER2 
0 TO 130$ IF NO A 


RETURN HERE IF ERR 
ERROR # DEFINED BY CMPERRSTS SUBROUTINE 


:G0 BACK FOR MORE ERROR CHECKS 


G0 TO 150$ IF ERROR 


SEQ 0116 
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130 RETURN TO CENTERLINE TEST SEQ 0117 
895 022053 1308: 
896 022052 004737 061232 JSR PC,STCDRVSTS | ;GO CHECK FOR CHANGES | IN DRIVE STATUS 
022056 000405 BR 146$ :60 TO 140$ IF NO ERR 
022060 000240 NOP ‘RETURN HERE IF ERROR 
022062 104000 EMT TERROR # DEFINED BY STCDRVSTS SUBROUTINE 
022064 004736 JSR PC, a(SP)+ +GO BACK FOR MORE ERROR CHECKS 
022066 000137 022106 JMP 156$ :GO TO 150$ IF ERROR 
897 022072 1408: 
898 022072 004737 046004 JSR PC, SECERR :GO0 CHECK FOR SECONDARY ERRORS 
022076 000403 BR 156$ :G0 TO 150$ IF NO ERROR 
022100 000240 NOP ‘RETURN HERE IF NER ROR 
022102 104000 EMT S ERROR # DEFINED BY SECERR SUBROUTINE 
022104 004736 JSR PC,a(SP)+ 3;G0 BACK FOR MORE ERROR CHECKS 
899 022106 1508: 
901 3 SERRE REE REAR ERERE EERE 
;*TEST 31 READ IN PRESET TEST 
SAREE EERE EEE EEE EERE 
022106 18131: 
022106 000004 SCOPE :SCOPE CALL 
022110 000240 NOP sSTART OF TEST 
022112 012706 001100 MOV #STACK,SP INITIALIZE gon POINTER 
022116 013700 001276 MOV S$BASE ,RO [RO = UNIBUS ADDRESS 
022122 013701 001464 MOV TSTQUE,R1 :(R1) = DEVICE BEING TESTED 
ae 022126 012737 000031 001226 MOV #31,$TESTN +;SET TEST NUMBER IN APT MAIL BOX 
903 022134 004737 043150 JSR PC, TSTPRP :PREPARE DEVICE FOR TEST 
022140 054130 .- WORD 054130 ; TASK DESCRIPTOR AS FOLLOWS: 
'CLEAR CONTROLLER & SELECT DEVICE 
;VERIFY CONTROLLER CLEAR OPERATION 
;PACK ACKNOWLEDGE IF VOLUME NOT VALID 
sVERIFY PACK ACKNOWLEDGE 
sRECALIBRATE IF ‘'SKI"’ OR ‘'PIP’' IS SET 
;VERIFY RECALIBRATION 
022142 000404 BR 70$ 60 TO 70$ IF NO ERROR 
022144 000240 NOP [RETURN HERE IF ERROR 
022146 104000 EMT ;ERROR # DEFINED BY TSTPRP SUBROUTINE 
: 022150 000137 022470 sa JMP 160$ :G0 TO 160$ IF ERROR 
905 022154 012702 001543 MOV #PUTINX,R2 :R2 POINTS TO INDEX TABLE 
6 022160 112722 000006 MOVB = #RMDA, (R2)+ 
907 022164 112722 000034 MOVB  #RMDC.(R2)+ 
908 022170 112722 000032 MOVB  #RMOF.(R2)+ 
022174 112722 000000 MOVB  #RMCS1,(R2)+ 
910 022200 112722 000200 MOVB  #200,(R2)+ 
911 022206 012737 177777 001416 MOV #-1,RMDAO 
912 022212 012737 177777 001444 MOV #-1-RMDCO 
913 022220 012737 016200 001442 MOV #FMT16/ECI!HCI!OFD,RMOFO 
914 022226 012737 000021 001410 MOV #RIP'GO,RMCS10 
915 022234 004737 044424 JSR PC,PUT 3G0 WRITE REGISTER(S) WITH PUT SUBROUTINE 
022240 000404 BR 80$ 760 TO 80$ IF NO 
022242 000240 NOP SRETURN HERE IF ERROR 
022244 104000 EMT sERROR # DEFINED BY PUT SUBROUTINE 
022246 000137 022470 JMP 160$ :GO TO 160$ IF ERROR 
916 022252 004737 044070 80$: JSR PC,GETSTS “SETUP FOR STATUS FETCH 
At 4 022256 004737 044766 JSR PC, TIMOUT sWAIT FOR RIP TO COMPLETE 


— RM0S/3/2 
13) READ IN 


919 


939 


= = 
74% 


943 
945 


im 
SSENSER 


WAIN wrrononn 


NOES FOORNOSE 


$233 


ile Li 
srocsene £5 


0 
022470 


022470 
022470 
022472 


FCTNL 
PRESET 


000137 


Stet} 


285833 


SN SONNE NONE NS OFS 


SS RNNENTSNENSSANSNSSSSS NSSF 


— 
— 
wu 


004736 


000004 
000240 


TST 1 
TEST 
044154 


022470 
045152 


022470 
001366 
161577 
001140 
001342 


001342 
001140 


001370 
001370 
001140 


051644 


022479 
061232 


022470 
046004 
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001142 


001142 


90$: 


100$: 


1108: 


1208: 


130$: 


1408: 


150$: 


160$: 


PC GET 
90$ 

1608 

PC .PRIERR 
106$ 
PC,a(SP)¢ 
166$ 
RMOF1,S$BDDAT 


@*C<FRTIO‘ECI!HC 
10$ 


1 

SGDDAT 

160 

RMDAI 

120% 
RMDAI,$BDDAT 
SGDDAT 

161 

RMDCI 

1308 

RMOC1, SBDDAT 
SGDDAT 

162 


PC,CMPERRSTS 
NDTMSK 


PC,a(SP)¢ 


1608 


PC, STCDRVSTS 
1568 


PC ,a(SP)+ 


160$ 
PC, SECERR 


160% 


PC,a(SP)* 


;GO READ REGISTER(S) WITH GET SUBROUTINE 
360 TO 90$ i NO_ ERROR 

FI 
I 


OR 
; Y GET SUBROUTINE 
360 TO 160$ R 


3G0 CHECK FOR PRIMARY ERRORS 

:60 TO 100$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PRIERR SUBROUTINE 
3G0 BACK FOR MORE ERROR CHECKS 

G0 TO 160$ IF ERROR 

31S RMOF RESET?? 

JS Af apenas 


sYES!! 

:G00D DATA FOR TYPEOUT 
31S RMDA RESET?? 
:YES!! 


‘BAD DATA FOR TYPEOUT 
:GOOD DATA FOR TYPEQUT 


71S RMDC RESET?? 
sVES!! 


[BAD DATA FOR TYPEOUT 
‘GOOD DATA FOR TYPEOUT 


;CHECK ANY ERRORS NOT MASKED 

MASK FOR RMERI 

sMASK FOR RMER2 

:G0_ TO 140$ IF NO ERROR 

RETURN HERE IF ERROR 

;ERROR # DEFINED BY CMPERRSTS SUBROUTINE 
:GO BACK FOR MORE ERROR CHECKS 

360 TO 160$ IF ERROR 


:G0 CHECK FOR CHANGES IN DRIVE STATUS 
:G0 TO 150$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY STCDRVSTS SUBROUTINE 
3GO BACK FOR MORE ERROR CHECKS 

:G0 TO 160$ IF ERROR 


GO CHECK FOR SECONDARY ERRORS 
:GO0 TO 160$ IF NO ERROR 

RETURN HERE IF ERROR 

;ERROR # DEFINED BY SECERR SUBROUTINE 
:G0 BACK FOR MORE ERROR CHECKS 


WEARAREBREZRAZERASERASESERRAARRRSESERRREREEAR ERR R RAR RRR RR RR RRR RES SD | 


SeTEST 32 


SCOPE 


RMDC CLEAR OFFSET TEST 


sl eeeeeearerareseeererereeeeeereKeeAHeRKeKeeaKeeeeeKeeeeeereeeeese 


SCOPE CALL 
;START OF TEST 


SEQ 0118 


. RMMAO 
132 


946 
947 


948 
949 


pee oe fofoloflofojelelolololo) 


RMO5/3/2 FCTNL 


RMDC CLEAR OFFS 


000137 
112737 


POMPOM MPP PE PY Pofofnofnofnye 
MPIPEPOPEPOMPoPY No Nofnonons 
PMMAMAAMAWA UTA TUT UU 
SOUS WWWPoP 
FOUMEAOSWOS & 


004737 
022602 004737 
02 


47 
2634 000137 
022640 032737 
022646 1013 


022676 
022676 112737 
22704 112737 


022732 000137 
022736 


64 
000032 
043150 


023006 
000000 


044424 


023006 
044070 


044154 


023006 
045152 


023006 
000001 


001346 
177776 
000001 


000034 


044424 


023006 
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001226 


001543 
001544 
001410 


001346 


001142 
001142 
001140 


001543 
001544 
001444 


70$: 


80$: 


90$: 


100$: 


110$: 


1208: 


WSTACK,SP 

bop RO 
TSTQUE ,R1 

#32, STESTN 


70$ 


1408 


#RMCS1,PUTINX 
#200, PUTINX+1 
#OFFSET!GO,RMCS10 


PC ,PUT 
80$ 

140% 
PC,GETSTS 
PC,GET 
90$ 


1408 
PC,PRIERR 
100$ 


PC,a(SP)+ 
140$ 
#OM,RMDSI 
110$ 


RMDSI1,$BDDAT 
#*COM, SBDDAT 


#0M,S$GDDAT 
156 
1408 


#RMDC ,PUTINX 
#200, PUTINX+1 


#0,RMDCO 
PC PUT 
120% 


140% 


A be ttt, Ay POINTER 
ADDRESS 


tR1) 7 DEVICE BEING TESTED 
;;SET TEST NUMBER IN APT MAIL BOX 


;PREPARE DEVICE FOR TEST 

; TASK DESCRIPTOR AS FOLLOWS: 

;CLEAR CONTROLLER & SELECT DEVICE 

: VERIFY CONTROLLER CLEAR OPERATION 
;PACK ACKNOWLEDGE IF VOLUME NOT VALID 
VERIFY PACK ACKNOWLEDGE 

sRECALIBRATE IF ‘'SKI'' OR "'PIP’’ IS SET 
; VERIFY RECALIBRATION 

:60 TO 70$ IF NO —— 

;RETURN HERE IF ERR 

ERROR # DEFINED BY TSTPRP SUBROUT INE 
:G0 TO 1408 IF ERROR 


;SETUP PUT INDEX TABLE 
;SET TERMINATOR BYTE 

;SET RMCS1 OUTPUT BUFFER = 
;G0 WRITE RMCS1 ain PUT SUBROUTINE 
:G0 TO 80$ IF NO ERROR 
RETURN HERE IF OERR OR 
;ERROR DEFINED BY PUT SUBROUTINE 
:G0 TO 1408 IF ERROR 
SETUP FOR STATUS 


+ READ $ TF NOERROR GET SUBROUTINE 


;GO0 TO 90$ IF NO ERR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY GET SUBROUTINE 
;G0 TO 140$ IF ERROR 


:GO CHECK FOR PRIMARY ERRORS 
G0 TO 100$ IF NO ERROR 

;RETURN HERE IF ERROR 

ERROR # DEFINED BY PRIERR SUBROUTINE 
:GO BACK FOR a ERROR CHECKS 

:G0 10 he IF ERROR 

sOFFSET ON? 


i YES 

BAD DATA FOR TYPEOUT 
;GOO0D DATA FOR TYPEOUT 
SKIP REST OF TEST 


:SETUP PUT INDEX TABLE 

SET TERMINATOR BYTE 

;SET RMDC OUTPUT BUFFER = 0 

:GO WRITE RMDC VIA PUT 5 SUBROUTINE 
G0 TO 120$ IF NO ERROR 

;RETURN HERE IF ERROR 

SERROR DEFINED BY PUT SUBROUTINE 
G0 TO 1408 IF ERROR 


OF FSET!GO 


SEQ 0119 
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RMDC CLEAR OFFSET TEST SEQ 0120 
965 022736 004737 044154 JSR PC,GET :GO READ REGISTER(S) WITH GET SUBROUTINE 
022742 000404 BR 136$ 760 TO 130$ IF NO ER ROR 
022744 000240 NOP [RETURN HERE IF ERR 
022746 104000 EMT : RROR # DEFINED BY “eT SUBROUTINE 
022750 000137 023006 JMP 1408 +60 TO 140$ IF ERROR 
966 022754 032737 000001 0013466 130$: BIT #OM,RMDSI [DID OFFSET MODE RESET?? 
967 022762 001411 BEQ 1408 
968 022764 013737 001346 001142 MOV RMDSI,$BDDAT §;BAD DATA FOR TYPEOUT 
969 022772 042737 177776 001142 BIC #°COM. $BDDAT 
970 023000 005037 001140 CLR SGDDAT :GO0D DATA FOR TYPEOUT 
971 023004 104253 EMT 253 
972 023006 140$: 
974 4 SUTRA AAA HAHAHA HEHE THEATER HAKeHAHeheReeeeeteneeeeeneeneeee 
SeTEST 33 ILLEGAL FUNCTION TEST 
,eteereeeeeeaeeeeeeteeeeereReeeeaeeeeeeeeeeeReeeeeeeneneneneeeee 
023006 18133: 
023006 000004 SCOPE :SCOPE CALL 
023010 000240 NOP :START OF TEST 
023012 012706 001100 MOV #STACK,SP ZINITIALIZE STACK POINTER 
023016 013700 001276 MOV SBASE ,RO [RO = UNIBUS ADDRESS 
023022 013701 001464 MOV TSTQUE,R1 :(R1) = DEVICE BEING TESTED 
we 023026 012737 000033 001226 MOV #33, $TESTN ::SET TEST NUMBER IN APT MAIL BOX 
976 023034 004737 043150 JSR PC STPRP ;PREPARE DEVICE FOR TEST 
023040 040000 -WORD 04000 [TASK DESCRIPTOR AS FOLLOWS: 
: CLEAR CONTROLLER & SELECT DEVICE 
023042 000404 BR 5$ TO 5$ IF NO ERR OR 
023044 000240 NOP RETURN HERE IF ERR 
023046 104000 EMT TERROR # DEFINED BY OT STPRP SUBROUT INE 
023050 000137 023572 JMP 110$ :60 TO 110$ IF ERROR 
977 023054 S$: 
978 023054 004737 044070 JSR PC,GETSTS :SETUP FOR STATUS 
979 023060 012702 000000 MOV #NOP,R2 
980 023064 10$: 
981 023064 004737 053530 JSR PC,CNICLR :G0 ISSUE CONTROLLER CLEAR 
023070 000404 BR 20$ :G60 TO 20$ IF NO ER ROR 
023072 000240 NOP SRETURN HERE IF ERR 
023074 104000 EMT ‘ERROR NUMBER DEF INED BY SUBROUTINE 
023076 000137 023572 JMP 110$ [G60 TO 110$ IF ERROR 
982 023102 208: 
984 :SET DIAGNOSTIC MODE AND DIAGNOSTIC UNIT READY, DIAGNOSTIC ON 
YL 
986 023102 112737 000024 001543 MOVB  &#RMMRI,PUTINX ;SETUP PUT INDEX TABLE 
023110 112737 000200 001544 MOVB #200,PUTINX*1 SET TERMINATOR BYTE 
023116 012737 000001 001434 MOV #DMD.RMMR10 :SET RMMR1 OUTPUT BUFFER 
023124 004737 044424 JSR PC, PUT 760 WRITE RMMR1 VIA, PUT SUBROUTINE 
023130 000404 BR 30$ :GO TO 30$ IF NO ERR 
023132 000240 NOP ‘RETURN HERE IF ERROR 
023134 104000 EMT SERROR DEFINED BY PUT SUBROUT INE 
023136 000137 023572 JMP 110$ :GO0 TO 110$ IF ERRO 
987 023142 308: 
988 023142 112737 000024 001543 MOVB #RMAR! ,PUTINX ;SETUP PUT INDEX TABLE 
023150 112737 000200 001544 MOVB #200,PUTINX*1  :SET TERMINATOR BYTE 
023156 012737 001401 001434 MOV GORDI RUR MOC. RMMR10 SET RMMR1 OUTPUT BUFFER = DMD! MUR‘ MOC 
023164 004737 044424 JSR PC PUT 60 uité RAAR ath PUT SUBROUTINE 
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ILLEGAL FUNCTION TEST SEQ 0121 
023170 000404 BR 35$ :60 TO 35$ IF NO ERROR 
623172 000240 NOP [RETURN HERE IF ERR 
023174 10400 EMT TERROR DEFINED BY Put SUBROUTINE 
023176 000137 023572 JMP 1108 :60 TO 110$ IF ERRO 
989 023202 35$: 
991 :SET VOLUME VALID BEFORE ISSUING FUNCTION CODE BEING TESTED 
992 023202 112737 000000 001543 MOVB #RMCSI1,PUTINX ;SETUP PUT INDEX TABLE 
023210 112737 000200 001544 MOVB =: #200, PUTINK® | :SET TERMINATOR BYTE 
023216 012737 000023 001410 MOV #PAKACK'GO,RMCS10 SET RMCS1 OUTPUT BUFFER = PAKACK'!GO 
023224 004737 044424 JSR PC,PUT 360 write RMCS1 7. _ SUBROUTINE 
023230 000404 BR 40$ 760 TO 40$ IF NO ERR 
023232 000240 NOP SRETURN HERE IF ERR “ys 
023234 104000 EMT ‘ERROR DEFINED BY PUT SUBROUTINE 
023236 000137 023572 JMP 110$ 760 TO 110$ IF ERROR 
993 023242 40$: 
994 023242 012737 000001 001410 MOV #G0O,RMCS10 
995 023250 050237 001410 BIS R2,RMCS10 ;WRITE FUNCTION CODE IN BUFFER 
996 023254 012737 103640 001414 MOV #BUFONE,RMBAO  ;DUMMY BUS ADDRESS 
997 023262 012737 177777 001412 MOV #-1,RMWCO sDUMMY WORD COUNT 
998 023270 005037 001416 CLR RMDAO [CLEAR DISK ADDRESS 
999 023274 005037 001444 CLR RMDCO ;CLEAR CYLINDER ADDRESS 
1000 023300 012737 010000 001442 MOV #FMT16,RMOFO  :16 BIT FORMAT 
1001 023306 012703 001543 MOV APUTINX,R3 s;WRITE REGISTER INDEX TABLE 
1002 023312 112723 000004 MOVB = #RMBA, (R3) + 
1003 023316 112723 000002 MOVB  #RMWC.(R3)¢4 
1004 023322 112723 000032 MOVB  #RMOF.(R3)4 
/ 1005 023326 112723 000006 MOVB  #RMDA,(R3)+ 
| 1006 023332 112723 000034 MOVB MRMDC, (R3)+ 
1007 023336 112723 000900 MOVB = #RMCS1,(R3)4 
1008 023342 112713 000200 MOVB #200, (R3) 
1009 023346 004737 044424 JSR PC,PUT 3GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
023352 000404 BR 50$ ;GO TO 50$ IF NO ERROR 
| 023354 000240 NOP SRETURN HERE IF ERROR 
023356 104000 EMT sER =  ] ie A 4 Ras SUBROUTINE 
023360 000137 023572 JMP 110$ :GO TO 110$ IF E 
4 023364 004737 044766 508: JSR PC, TIMOUT “WAIT FOR GO TO RESET 
1012 023370 004737 044154 JSR PC,GET 3GO READ REGISTER(S) WITH GET SUBROUTINE 
023374 000404 BR 60$ :60 TO 60$ IF NO = ~y 
023376 000240 NOP ‘RETURN HERE IF ERR 
023400 104000 EMT TERROR # DEFINED BY GET SUBROUT INE 
023402 000137 023572 JMP 110$ [G0 TO 110$ IF ERROR 
1013 023406 60$: 
1014 023406 004737 045152 JSR PC,PRIERR ‘= og FOR coe ERRORS 
023412 000405 BR 70$ 0 70$ IF NO ERROR 
023414 000240 NOP ‘RETURN HERE IF ORR OR 
023416 104000 EMT sERROR # DEFINED BY AS er SUBROUT INE 
023420 004736 JSR PC,a(SP)+ 3;GO BACK FOR at ERROR CHECKS 
023422 000137 023572 JMP 116$ :G0 TO 110$ IF ERROR 
1015 023426 016237 067046 001140 70$: MOV FNCDTB(R2),$GDDAT ;GET ENTRY FROM FUNCTION CODE TABLE 
1016 023434 042737 177776 001140 BIC #*CILF ,S$GDDAT 
1017 023442 013737 001350 001142 MOV RMER11,$BDDAT ;BAD DATA FOR TYPEOUT 
1018 023450 042737 177776 001142 BIC #*CILF ,SBDDAT 
1019 023456 023737 001140 001142 CMP S$GDDAT, *SBDDAT s1S ILF STATUS CORRECT? 
1020 023464 001402 BEQ 80$ TYES!! 
1021 023466 104254 EMT 254 
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012737 


004737 
040000 


000404 
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000137 
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110$ 
80$: MOV FNCDTB(R2) , SGDDAT 
BIT oo 4 Pe ERROR DETECTED?? 


40 

46 

40 BIS #ATA,SGDDAT :YES = ATA SHOULD BE ON 
40 90S: BIC #*CATA, $GDDAT 

4g MOV RMDS1,$BDDAT 7GET DRIVE’S ATTENTION 
42 


CMP SGDDAT,SBDDAT ;1S ATA STATUS 0K?? 
00$ sVES!! 


BEQ 1 
EMT 255 
BR 110$ 
100$: ADD #2,R2 360 TO NEXT FUNCTION CODE 
CMP MILF 76,R2 ;DONE?? 
BLO 110$ sYES !! 
JMP 10% ;TEST NEXT FUNCTION 
1108: 
CREATE RAEEEEEEEREEEEEETEEEEEAEEAEEEREREEREERERO Ree Re hee e eee 
s*TEST 34 INVALID COMMAND TEST 
SEAR EARAEEREEEEEEETET ERE T EKA KeT AeA eeeeeeee 
TST34: 
SCOPE sSCOPE CALL 
NOP sSTART OF TEST 
MOV MSTACK,SP ZINITIALIZE STACK POINTER 
MOV $BASE,RO ;RO = UNIBUS ADDRESS 
MOV TSTQUE ,R1 :(R1) = DEVICE BEING TESTED 
001226 MOV #34,$TESIN 3:SET TEST NUMBER IN APT MAIL BOX 
JSR PC, TSTPRP ;PREPARE DEVICE FOR TEST 
.» WORD 046000 ; TASK DESCRIPTOR AS FOLLOWS: 
;CLEAR CONTROLLER & SELECT DEVICE 
BR 5$ 360 TO 5$ IF NO ERROR 
NOP ;RETURN HERE IF ERROR 
EMT sERROR # DEFINED BY TSTPRP SUBROUTINE 
- JMP 110% 3G0 TO 110$ IF ERROR 
JSR PC,GETSTS ;SETUP FOR STATUS 
108 MOV #NOP,R2 
JSR PC,CNTCLR :GO ISSUE CONTROLLER CLEAR 
BR 208% :GQ TO 20$ IF NO ERROR 
NOP ;RETURN HERE IF ERROR 
EMT ;ERROR NUMBER DEFINED BY SUBROUTINE 
JMP 110$ :GO0 TO 110$ IF ERROR 
20$: 
ePa? Creemerat MODE AND DIAGNOSTIC UNIT READY, DIAGNOSTIC ON 
;CYLIN 
001543 MOVB #RMMR1,PUTINX ;SETUP PUT INDEX TABLE 
001544 MOVB #200, PUTINX+1 ;SET TERMINATOR BYTE 
001434 MOV #DMD,RMMR10 7SET RMMR1 OUTPUT BUFFER = DMD 
JSR PC PUT 3G0 WRITE RMMR1 VIA PUT SUBROUTINE 
BR 30$ :GO0 TO 30$ IF NO ERROR 
NOP ;RETURN HERE JF ERROR 
EMT ;ERROR DEFINED BY PUT SUBROUTINE 
JMP 110% :G0 TO 110$ IF ERROR 


SEQ 0122 
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SEQ 0123 
30$: 
001543 MOVB = ARMMRT,PUTINX SETUP PUT INDEX TABLE 
001544 MOVB #200,PUTINX*1 SET TERMINATOR BYTE 
001434 MOV #0MD'MUR'MOC,RMMR1O :SET RMMR1 OUTPUT BUFFER = DMD! MUR! MOC 
JSR PC, PUT :GO WRITE RMMR1 VIA PUT SUBROUTINE 
BR 35$ :G60 TO 35$ IF NO ERROR 
NOP [RETURN HERE IF ERROR 
EMT :ERROR DEFINED BY PUT SUBROUTINE 
as JMP 1108 :60 70 110$ IF ERROR 


;VOLUME VALID IS LEFT RESET FOR THE TEST 
40$: 


001410 MOV #G0,RMCS10 
BIS R2,RMCS10 :WRITE FUNCTION CODE IN BUFFER 
001414 MOV WBUFONE,RMBAO :DUMMY BUS ADDRESS 
001412 MOV #-1,RMWCO [DUMMY WORD COUNT 
CLR RMDAO [CLEAR DISK ADDRESS 
CLR RMDCO SCLEAR CYLINDER ADDRESS 
001442 MOV #FMT16,RMOFO :16 BIT F 
MOV #PUTINX,R3 WRITE REGISTER INDEX TABLE 
MOVB = #RMBA, (R3)+ 
MOVB = #RMWC. (R3) 4 
MOVB  #RMOF.(R3)+ 
MOVB  #RMDA.(R3)+ 
MOVB = #RMDC.(R3)+ 
MOVB = #RMCS1, (R3)+ 
MOVB #200, (R3) 
JSR PC PUT :GO WRITE REGISTERS) WITH PUT SUBROUTINE 
BR 50$ 760 TO 50$ IF NOE RROR 
NOP ‘RETURN HERE IF ERRO 
EMT “ERROR # DEFINED BY PUT SUBROUT INE 
JMP 110$ 'GO TO 110$ IF ERROR 
508: JSR PC, TIMOUT =WAIT FOR GO 10° RESET 
JSR PC GET GO READ REGISTER(S) guts GET SUBROUTINE 
BR 60$ °60 TO 60$ IF NO ERR 
NOP ‘RETURN HERE IF ERR 
EMT TERROR # DEFINED BY “cel SUBROUT INE 
Se JMP 1108 :GO TO 110$ IF ERROR 
JSR PC, PRIERR :GO CHECK FOR PRIMARY ERRORS 
BR 70$ GO TO 70$ IF NO ERROR 
NOP “RETURN HERE IF ERROR 
EMT sERROR # DEFINED BY PRIERR SUBROUTINE 
JSR PC,a(SP)+ +60 BACK FOR MORE ERROR CHECKS 
JMP 116$ *GO TO 110$ IF ERROR 
001140 70%: MOV FNCDTB(R2) ,$GDDAT GET Ewin FROM FUNCTION CODE TABLE 
001140 BIC #*CIVC,$GDDAT 
001142 MOV RMERZ1.$BDDAT ;BAD DATA FOR TYPEOUT 
001142 BIC #*CIVC,$BDDAT 
001142 CMP $GDDAT,$BDDAT 1S IVC STATUS CORRECT? 
BEQ 80$ YES! ! 
EMT 216 


BR 110% 
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024336 
1108 
1109 024344 
024350 
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024412 
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024446 
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100000 
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001226 


001543 
001544 
001434 


80$: 


90$: 


100$: 


1108: 


SEQ 0124 


ah gy ALE $GDDAT 
MERR,RMDSI 


90$ 

HATA, SGDDAT 
#*CATA, SGDDAT 
RMDS1,$BDDAT 
#*CATA,SBDDAT 
SGDDAT, SBDDAT 


7 WAS ,AN ERROR DETECTED?? 


:NO! 

YES. - ATA SHOULD BE ON 
:GET DRIVE'S ATTENTION 
71S ATA STATUS OK?? 
svES!S 


:60 TO ~~ FUNCTION CODE 
;DON €?? 


YES 
:TEST NEXT FUNCTION 


SERA EATER Keke eee eee 


s*TEST 35 


18135: 


5$: 


10$: 


20$: 


SET DIAGNOSTIC MODE AND DIAGNOSTIC UNIT READY, 
CYLINDER 


30$: 


INVALID ADDRESS ERROR TEST 


SRR HEKRe TAA 


SCOPE CALL 
START OF TEST 


#STACK,SP ;INITIALIZE STACK POINTER 
SBASE ,RO =RO = UNIBUS ADDRESS 
TSTQUE ,R1 :(R1) = DEVICE BEING TESTED 
#35, $TESTN >:SET TEST NUMBER IN APT MAIL BOX 
PC 1STPRP ;PREPARE DEVICE FOR TEST 
04000 ‘TASK DESCRIPTOR AS FOLLOWS: 
:CLEAR CONTROLLER & SELECT DEVICE 
5$ 760 TO 5$ IF NO ERROR 
[RETURN HERE IF ERROR 
TERROR # DEFINED BY TSTPRP SUBROUTINE 
110$ :G60 TO 110$ IF ERROR 
PC .GETSTS :SETUP FOR STATUS 
NOP, 
PC,CNTCLR :60 ISSUE CONTROLLER CLEAR 
20$ 0 10 208 IF N 0 ERROR 
RETURN HERE Ir ERRO 
‘ERROR NUMBER DEF IND BY SUBROUTINE 
110$ :GO TO 110$ IF ERROR 


#RMMR1 ,PUTINX 


DIAGNOSTIC ON 
;SETUP PUT INDEX TABLE 


#200,PUTINX+1 SET TERMINATOR BYTE 
#DMD.RMMR10 :SET RMMR1 OUTPUT BUFFER = DMD 
PC PUT GO WRITE RMFR1 VIA PUT SUBROUTINE 
30$ :GO TO 30$ IF NO ERROR 

‘RETURN HERE IF ERROR 

TERROR DEFINED BY PUT SUBROUTINE 
110% 760 TO 110% IF ERROR 


1 10 
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35 INVALID ADDRESS ERROR TEST SEQ 0125 

1121 0246452 112737 000024 001543 MOVB  &#RMMRI,PUTINX ;SETUP PUT INDEX TABLE 
024460 112737 000200 001544 MOVB #200,PUTINX#1 :SET TERMINATOR BYTE 
024466 012737 001401 001434 MOV #DMD'MUR' MOC, RMMR10 -SET RMMR1 OUTPUT BUFFER = DMD! MUR! MOC 
024474 004737 044424 JSR PC, PUT 3GO WRITE RMMR1 VIA PUT SUBROUTINE 
024500 000404 BR 35§ :GO0 TO 35$ IF NO ERROR 
024502 000240 NOP sRETURN HERE IF ERROR 
024504 104000 EMT SERROR DEFINED BY PUT SUBROUTINE 
024506 000137 025106 JMP 1108 760 TO 110$ IF ERRO 

1122 024512 35$: 

1124 :SET VOLUME VALID BEFORE ISSUING FUNCTION CODE BEING TESTED 

1125 024512 112737 000000 001543 MOVB  #RMCS1,PUTINX ;SETUP PUT INDEX TABLE 
024520 112737 000200 001544 MOVB #200,PUTINX+1 :SET TERMINATOR evie 
024526 012737 000023 001410 MOV #PAKACK'GO,RMCS10 ;SET RMCS1 OUTPUT BUFFER = PAKACK'GO 
024534 004737 044424 JSR PC,PUT :60 RITE RMCS1 VIA. PUT SUBROUT INE 
024540 000404 BR 40$ TO 40$ IF NO ERR 
024542 000240 NOP RETURN HERE IF ERR on 
024544 104000 EMT TERROR DEFINED BY PUT SUBROUTINE 
024546 000137 025106 JMP 110$ :GO TO 110$ IF ERROR 

1126 024552 40$: 

1127 024552 012737 000001 001410 MOV #G0, RMCS10 

1128 024560 050237 001410 BIS R2,R ;WRITE FUNCTION CODE IN BUFFER 

1129 024564 012737 103640 001414 MOV SSF ONE RABAC ;DUMMY BUS ADDRESS 

1130 024572 012737 177777 001412 MOV #-1,RMWCO [DUMMY WORD COUNT 

1131 024600 012737 177777 001416 MOV #-1,RMDAO USE INVALID DISK ADDRESS 

1132 024606 012737 177777 001444 MOV #-1.RMDCO ;USE INVALID CYLINDER ADDRESS 

1133 024614 012737 010000 001442 MOV #FMT16,RMOFO :16 BIT FORMAT 

1134 024622 012703 001543 MOV #PUTINX,R3 ;WRITE REGISTER INDEX TABLE 

1135 024626 112723 000004 MOVB  #RMBA, (R3)+ 

1136 024632 112723 0000902 MOVB #RMWC,(R3)+ 

1137 024636 112723 000032 MOVB  #RMOF.(R3)+ 

1138 024642 112723 000006 MOVB  #RMDA,(R3)+ 

1139 024646 112723 000034 MOVB  #RMDC,(R3)+4 

1140 024652 112723 000000 MOVB  #RMCS1,(R3)+ 

1141 024656 112713 000200 MOVB #200, (R3) 

1142 024662 004737 044424 JSR PC,PUT 3G0 WRITE "on take WITH PUT SUBROUTINE 
024666 000404 BR 50$ :G0 TO 50$ IF NO ERROR 
024670 000240 NOP :RETURN HERE IF ERROR 
024672 104000 EMT TERROR # DEFINED BY PUT SUBROUTINE 
024674 000137 025106 JMP 1108 :GO TO 110$ IF ERROR 

1143 024700 004737 044766 50$: JSR PC, TIMOUT :WAIT FOR GO TO RESET 

1145 024704 004737 044154 JSR PC,GET :G0 READ REGISTER(S) WITH GET SUBROUTINE 
024710 000404 BR 60$ 760 TO 60$ IF NO ERROR 
024712 000240 NOP SRETURN HERE IF ERROR 
024714 104000 EMT [ERROR # DEFINED BY GET SUBROUTINE 
024716 000137 025106 JMP 110% 760 TO 110$ IF ERROR 

1146 024722 60$: 

1147 024722 004737 045152 JSR PC, PRIERR :GO CHECK FOR PRIMARY ERRORS 
024726 000405 BR 70$ :G0 TO 70$ IF NO ERROR 
024730 000240 NOP >RETURN HERE IF ERROR 
024732 104000 EMT sERROR # DEFINED BY PRIERR SUBROUTINE 
024734 004736 JSR PC, a(SP)+ 60 BACK FOR MORE ERROR CHECKS 
024736 000137 025106 JMP 116$ :GO TO 110$ IF ERROR 

1148 024742 016237 067046 001140 708: MOV FNCDTB(R2) ,$GDDAT :GET ENTRY FROM FUNCTION CODE TABLE 

1149 024750 042737 175777 001140 BIC #*CIAE,SGDDAT 

1150 024756 013737 001350 001142 MOV RMERI1I,$BDDAT ;BAD DATA FOR TYPEOUT 
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135 INVALID ADDRESS ERROR TEST SEQ 0126 
1151 024764 042737 175777 001142 BIC #*CIAE ,SBDDAT 
1152 024772 023737 001140 001142 CMP SGDDAT,SBODAT ;1S JAE STATUS CORRECT? 
1153 025000 001402 BEQ 80$ sVES!! 
1154 025002 104217 EMT 217 
1155 0250 000440 BR 1108 
1156 025006 016237 067046 001140 80S: MOV oeke erat’ $GDDAT 
1157 025014 032737 040000 001346 BIT WERR eWAS | AN ERROR DETECTED?? 
1158 025022 001403 BEQ 90$ ° iN 
1159 025024 052737 100000 001140 BIS #ATA,SGDDAT YES. - ATA SHOULD BE ON 
1160 025032 042737 077777 001140 908: BIC #*CATA, $GDDAT 
1161 025040 013737 001346 001142 MOV ——«-RMDSI,$BDDAT_ =; GET DRIVE'S ATTENTION 
1162 025046 042737 077777 001142 BIC #*CATA,SBDDAT 
1163 025054 023737 001140 001142 CMP $GDDAT.$BDDAT 31S ATA STATUS OK?? 
1164 025062 001402 BEQ 100$ sVES!! 
1165 025064 104255 EMT 255 
1166 025066 000407 BR 110$ 
1167 025070 062702 000002 100$: ADD #2,R2 360 TO jNEXT FUNCTION CODE 
1168 025074 022702 000076 CMP MILF 76,R2 :DON NE? 
1169 025100 103402 BLO 110$ “YES |! 
1170 025102 000137 024374 JMP 10% :TEST NEXT FUNCTION 
1171 025106 1108: 
1172 
1173 LURRAERAT RARER TTT RETA ATTA ERE RE O HOH eee RARER 
TETEST 36 WRITE LOCK ERROR TEST 
SERRA EAE ETE TEA EERE ETAT ATTA 
025106 $136: 
025106 000004 SCOPE ;SCOPE CALL 
025110 000240 NOP START OF TEST 
025112 012706 001100 MOV MSTACK,SP : INITIALIZE “ors POINTER 
025116 013700 001276 MOV SBASE ,RO :RO = UNIBUS ADDRESS 
025122 013701 001464 MOV TSTQUE ,R1 ;(R1) = DEVICE BEING TESTED 
1176 025126 012737 000036 001226 MOV #36,$TESIN :;SET TEST NUMBER IN APT MAIL BOX 
1175 025134 004737 043150 JSR PC, TSTPRP ;PREPARE DEVICE FOR TEST 
025140 040000 -WORD 040000 7 TASK DESCRIPTOR AS FOLLOWS: 
CLEAR CONTROLLER & SELECT DEVICE 
025142 000404 BR 5$ :GO TO 5$ IF NO ERROR 
025144 000240 NOP ;RETURN HERE IF ERROR 
025146 104000 EMT ;ERROR # DEFINED TSTPRP SUBROUTINE 
025150 000137 025672 JMP 110% ;GO0 TO 110% IF ERROR 
1176 025154 5$: 
1177 025154 004737 044070 JSR PC,GETSTS ;SETUP FOR STATUS 
1178 025160 012702 000000 MOV #NOP ,R2 
1179 025164 10$: 
1180 025164 004737 053530 JSR PC,CNTCLR = ISSUE oie CLEAR 
025170 000404 BR 20% 0 TO 20$ IF N hi» 
025172 ems NOP RETURN HERE IF ERR 
025174 104000 EMT ;ERROR NUMBER DEFINED BY SUBROUTINE 
025176 000137 025672 JMP 110% 360 TO 110% IF ERROR 
igs 025202 208: 
1183 3SET DIAGNOSTIC MODE AND DIAGNOSTIC UNIT READY, DIAGNOSTIC ON 
1184 sCYLINDER, AND DIAGNOSTIC WRITE LOCK 
1185 025202 112737 000024 001543 MOVB #WRMAMR1,PUTINX  ;SETUP PUT INDEX TABLE 
025210 112737 000200 001544 MOVB #200,PUTINX+1  ;SET TERMINATOR BYTE 
025216 012737 000001 001434 MOV #DMD ,RMMR10 7SET RMMR1 OUTPUT BUFFER = DMD 
025224 004737 044424 JSR PC,PUT :G0 WRITE RMMR1 VIA PUT SUBROUTINE 
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001543 
001544 
001410 


001410 


001414 
001412 


001442 


30$: 


35$: 


30$ :G0 10 30$ IF NO ERROR 

;RETURN HERE IF ERROR 

sERROR DEFINED BY PUT SUBROUTINE 
110% 260 TO 110$ IF ERROR 


#RMMR1,PUTINX 
#200, PUTINKX+1 


: SETUP PUT INDEX TABLE 

SET TERMINATOR BYTE 
#DMD'MUR'MOC!MWP. RMR 10 T RMMR1 OUTPUT BUFFER = 
PC, PUT :6 Rite al AGE PUT SUBROUTINE 
356 0 35$ IF N OER ROR 

RETURN HERE IF ERR 

TERROR DEFINED BY pul SUBROUTINE 
760 TO 1108 IF ERRO 


DMD! MUR! MOC ! MwP 


1108 


;SET ne ee * arsi Puy ISSUING FUNCTION CODE BEING TESTED 


40$: 


50$: 


60$: 


PUTINX  ;SETUP PUT INDEX TABLE 
#200,PUTINX+1 —_:SET TERMINATOR BYTE 


#PAKACK!GO,RMCS10 SET RMCS1 OUTPUT BUFFER = PAKACK!GO 
PC ,PUT ;G0 WRITE “a ota PUT SUBROUTINE 
40$ :G0 TO 40$ IF NO ER aa 
ib ay HERE IF ERROR 
; ERROR 8 BY ~ SUBROUTINE 
1108 G0 TO 1108 IF ERRO 
#G0,RMCS10 
, 1 sWRITE FUNCTION CODE IN BUFFER 
WBUFONE,RMBAO ;DUMMY BUS ADDRESS 
#-1,RMWCO DUMMY WORD COUNT 
RMDAO CLEAR DISK ADDRESS 
RMDCO ;CLEAR CYLINDER ADDRESS 
#FMT16,RMOFO 316 BIT FORMAT 
#PUTINK,R3 WRITE REGISTER INDEX TABLE 
#RMBA, (R3)+ 
#RMWC, (R3)4 
#RMOF , (R3)+ 
#RMDA, (R3)+ 


#RMDC, (R3)+4 
wRMCSI (R53) 


#200, ( 
PC put :G0 WRITE REGISTER(S) WITH PUT SUBROUTINE 
50$ 7GO TO 50$ IF NO ERROR 
[RETURN HERE IF ERROR 
TERROR # DEFINED BY PUT SUBROUTINE 
110$ :G0 TO 110$ IF ERROR 
PC, TIMOUT ‘WAIT FOR GO TO RESET 
PC,GET :G0 READ REGISTER(S) WITH GET SUBROUTINE 
60$ TO 60$ IF N 
“RETURN HERE IF ER ROR 
TERROR # DEFINED BY GET SUBROUTINE 
1108 760 TO 110$ IF ERROR 
PC. PRIERR :G0 CHECK FOR PRIMARY gi RRORS 
70$ :G0 TO 70$ IF NO ERROR 


;RETURN HERE IF OER ROR 
;ERROR # DEFINED BY PRIERR SUBROUTINE 
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rmrrrrr 
MMPorpfnoefnoefnorfnenroeferfeofernoefonosfty 


AWAANAI AAI AIA RIPPIN POPUP 2 SS 


SONA VEWUWN — SOOO UVES WN OOOO 
oO 
a SSAESRY mm 


SoOOoooooooCooooO 
o—-Oooo—-CoOOooCoCoooooO 


gi0 
025632 


025666 
025672 


et et ee ed ed 


MRRP frerenofnenofnonononpoferrer 


ww 


025672 


02 
025712 


025720 
025724 


025726 


42 025740 


025740 
025744 


025750 
025750 


Sooonw &—FVow— 
OWNS Fawr 


oonoe 


000004 


012737 


004737 
054130 


000404 


000137 


004737 
012702 


004737 


LOCK ERROR TEST 


067046 
040000 


100000 
077777 
001346 


077777 
001140 


000002 
000076 


025164 


001100 


000037 
043150 


026224 


044070 
000000 


053530 
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001226 


70$: 


80$: 


90$: 


100$: 


1108: 


PC a(SP)+ :60 BACK FOR MORE ERROR CHECKS 

116 0 TO 110$ IF ERROR 

FNCDTB(R2) , scopai’ :GET ENTRY FROM FUNCTION CODE TABLE 
#*CWLE ,SGDDAT 

RMERII,$BDDAT ;BAD DATA FOR TYPEOUT 

#*CWLE,$BD 

SGDDAT.SBDDAT ;1$ WLE STATUS CORRECT? 

4 sYES!! 


1108 

oete imoat’ SGDDAT 
WERR,RMDSI ti AN ERROR DETECTED?? 
:N 


HATA, SGDDAT SYES = ATA SHOULD BE ON 
#*CATA, SGDDAT 
RMDSI,$BDDAT ;GET DRIVE'S ATTENTION 
#*CATA,SBDDAT 
SGDDAT, $BDDAT ;1S ATA STATUS OK?? 

100$ sYES!! 
255 
110$ 
#2,R2 :GO TO NEXT FUNCTION CODE 
HILE76.R2 :DON NE?? 

110% YES |! 

10$ ‘TEST NEXT FUNCTION 


peeeeekeeeeeeee eee eee eee eeketeeeeeeneeteeenehereeaeee 


SeTEST 37 


;eeeeeeeeeeeeeeeeeeeeeeeeeeeteeeReeeheeeeeKeeeeeeeneeeeneeeneene 


18137: 


10$: 


ERROR ABORT TESTS 


SCOPE CALL 
START OF TEST 


#STACK SP INITIALIZE STACK POINTER 

SBASE ,RO ;RO_ = UNIBUS ADDRESS 

TSTQUE ,R1 :(R1) = DEVICE BEING TESTED 
#37,$TESIN 3;SET TEST NUMBER IN APT MAIL BOX 
PC, TSTPRP ;PREPARE DEVICE FOR TEST 


054130 ; TASK DESCRIPTOR AS FOLLOWS: 

CLEAR CONTROLLER & SELECT DEVICE 
:VERIFY CONTROLLER CLEAR OPERATION 
;PACK ACKNOWLEDGE IF VOLUME NOT VALID 
VERIFY PACK ACKNOWLEDGE 

sRECALIBRATE IF ‘'SKI"’ OR ‘'PIP’’ IS SET 

VERIFY ie 


10$ O 10$ IF NO ERROR 

TRE TURN HERE IF ERROR 

ERROR # yi} aot TSTPRP SUBROUTINE 
80% :G0 TO 808 IF E 


; SETUP A INDEX TABLE, TO READ ALL REGISTERS 
PC ,GETSTS 


208: 


MOV 
JSR 


OQ 10 GETSTS SUBROUTINE 
#NOP ,R2 a FUNCTION CODE 


PC,CNTICLR :G0 ISSUE CONTROLLER CLEAR 
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aa a a a is ss os ss ss Ss 


026146 
1267 026150 
1268 
1269 
1270 
127 


026150 
1 026154 


“SSF 


ooooo[o0oo 


et at a ss os ss os 
FRPP NPPEPPof~onmnrnrwmonwor 
NNN NSN SNPS 
WM NINN OWWW 

ON NWI OS 


om m  H S 


004737 
004737 


000137 
004737 


026224 
000014 


044424 


026224 
000001 


044424 


044766 
044154 


026224 
045152 


026224 


000002 
000076 
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001543 
001544 
001424 


001410 
001414 


001442 


30$: 


40$: 


45$: 


30$ 


80$ 


@RMER1,PUTINX 
#200, PUTINX#1 
#UNS ,RMERIO 


PC PUT 
408 
80$ 


#G0,RMCS10 
R2,RMCS10 
#BUF ONE, RMBAO 
1,RMWCO 
#0, RMDAO 
#0. RMDCO 
#FMT16,RMOFO 
#PUTINK,R3 
#RMBA, (R3)+ 
#RMWC, (R3)+ 
#RMOF . (R3)+ 
#RMDA, (R3)+ 
#RMDC. (R3)4 
#RMCS1, (R3)4 
#200. (83) 
PC PUT 
45$ 


;WAIT FOR COMMAND TO COMPLETE 
JSR PC, TIMOUT 


50$: 


60$: 
70$: 


80$: 


PC,GET 
50$ 


80$ 


PC, PRIERR 
60$ 


PC,a(SP)+ 
80% 


M10 
E 12 


-45 


0 30$ IF NO ey 
RETURN HERE IF ERR 
sERROR # DEFINED aon OENTCLR SUBROUTINE 


360 TO 80$ IF ERR 


;SETUP PUT INDEX TABLE 
+ SET TERMINATOR BYTE 
;SET RMER1 OUTPUT BUFFER = UNS 
:GO WRITE RMER1 VIA PUT SUBROUT INE 
360 TO 40$ IF NO eng 
RETURN HERE IF ERROR 
sERROR DEFINED BY PUT SUBROUTINE 
:60 TO 80$ IF ERROR 


; WRITE hgh IS ae IN BUFFER 


;DUMMY BUS A 


;DUMMY WORD COUNT 
:CLEAR DISK ADDRESS 
: CLEAR er ADDRESS 


:16 BIT 


FORM 
i WRITE REGISTER INDEX TABLE 


:GO0 WRITE REGISTER(S) WITH PUT SUBROUTINE 
:G0 TO 45$ IF NO rs “ 


:RETURN HERE IF 


ERR 
sERROR # DEFINED BY *Pur SUBROUTINE 


:G0 TO TIMOUT SUBROUTINE 
:60 ig REGISTER(S) WITH GET SUBROUTINE 
;GO0 TO 50$ IF NO ERR y 


0 TO 60$ IF N 


RETURN HERE IF ERROR 

:ERROR # DEFINED BY PRIERR SUBROUTINE 
:GO BACK FOR MORE ERROR CHECKS 

:G0 TO 80$ IF ERROR 


sADVANCE FUNCTION CODE 
iow B ALL COMMANDS 


ERROR 
# DEFINED oy GET SUBROUTINE 
G0 TO 80$ IF ERROR 


oe CHECK FOR NO ERROR ERRORS 


SEQ 0129 


1281 


026224 


026244 


026252 
026256 


026260 


026432 
1293 026436 
1294 026436 
026442 


026450 
1295 026454 
1296 026454 


000004 


012737 


004737 
040000 


000404 


000137 


004737 
112737 


060137 
112737 


000137 
112737 


000137 
004737 


000137 
000240 
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001100 


000060 
043150 


026664 


044070 


000024 


044424 


026664 


000024 


044424 


026664 


000000 


044424 


026664 
044154 


026664 
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001226 


001543 
001544 
001434 


001543 
001544 
001434 


SEQ 0130 


FREAK RARER EERE AA EEE EERE AA AERAARAAAEEEAEEAAAERARARAAEETEAEETAEe 


SRR RAERAR EAE AA TAA AARAEREREAREREREARETERERAEEAREEe 


SCOPE CALL 

sSTART OF TEST 

s INITIALIZE STACK POINTER 

;RO_ = UNIBUS ADDRESS 

7(R1) = DEVICE BEING TESTED 

;:SET TEST NUMBER IN APT MAIL BOX 


;PREPARE DEVICE FOR TEST 

; TASK DESCRIPTOR AS FOLLOWS 

:CLEAR CONTROLLER & SELECT DEVICE 

:G0 TO 10$ IF NO ~'g 

RETURN HERE IF ERR 

ERROR # DEFINED 2 OT STPRP SUBROUT INE 
360 TO 100$ IF ERRO 


:G0 TO GETSTS SUBROUTINE 


:SETUP PUT INDEX —_ 

:SET TERMINATOR BYTE 

:SET RMMR1 OUTPUT BUFFER = DMD 

:GO WRITE RMMR1 VIA PUT SUBROUTINE 
:G0 TO 30$ IF NO ERROR 

RETURN HERE IF ERROR 

sERROR DEFINED BY ~~ SUBROUTINE 
3:60 TO 100$ IF ERROR 


;SETUP PUT INDEX TABLE 

;SET TERMINATOR BYTE 

;SET RMMR1 OUTPUT BUFFER = DMD!MUR! MOC 
G0 WRITE RMMR1 VIA PUT SUBROUTINE 

3:60 TO 40$ IF -. ee 

;RETURN HERE IF ERROR 

ERROR DEFINED By Ay SUBROUTINE 

G0 TO 100$ IF ERRO 


;SETUP PUT INDEX TABLE 
;SET TERMINATOR BYTE 

;SET RMCS1 OUTPUT BUFFER = 
360 WRITE RMCS1 VIA + SUBROUTINE 


PAKACK!GO 


IF ERROR 
TERROR DEFINED BY _ SUBROUTINE 
:G0 TO 100$ IF ERRO 


+7 READ REGISTER(S) WITH GET SUBROUTINE 
0 T0 60$ iF NO y 

E IF 

FINE 

] 


RETURN HERE IF ERR 
SERROR # DE : - BY GET SUBROUT J NE 


:G0 TO 100$ 


TSTEST 40 RMR TEST 

1$140: 
SCOPE 
NCP 
MOV MSTACK,SP 
MOV SBASE , RO 
MOV TSTQUE,R1 
MOV #40, STESTN 
JSR PC, TSTPRP 
“WORD 040000 
BR 10$ 
NOP 
EMT 
JMP 100$ 

10$: 

;SETUP GET INDEX TABLE 1 READ ALL REGISTERS 
JSR PC,GETSTS 

20$: 
MOVB #RMMR1,PUTINX 
MOVB #200,PUTINX+1 
MOV #0MD,RMMRIO 
JSR PC ,PUT 
BR 30$ 
NOP 
EMT 
JMP 100$ 

30$: 
MOVB #RMMR1,PUTINX 
MOVB #200,PUTINX+1 
MOV #DMD'MUR' MOC ,RMMR10O 
JSR PC,PUT 
BR 40$ 
NOP 
EMT 
JMP 100$ 

40$: 
MOVB #RMCS1,PUTINX 
MOVB #200, PUTINX+1 
MOV #PAKACK'GO,RMCS10 
JSR PC,PUT 
BR 50$ 
NOP 
EMT 
JMP 100$ 

50$: 
JSR PC,GET 
BR 60$ 
NOP 
EMT 
JMP 100% 

60$: 
NOP 
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SEQ 0131 
1297 026456 112737 000024 001543 MOVB &#RMMRI,PUTINX ;SETUP PUT INDEX TABLE 
026464 112737 000200 001544 MOVB #200,PUTINX+1  :SET TERMINATOR BYTE 
026672 012737 041401 001434 MOV #DMD (MUR! HOC !DBEN, Ren RIO <SET RMMR1 OUTPUT BUFFER = DMD!MUR!MOC !DBEN 
026500 004737 044424 JSR PC PUT WRITE RMMR1 VIA PUT SUBROUTINE 
026504 000404 BR 70$ 65 TO 70$ IF NO ERROR 
6506 000240 NOP SRETURN HERE IF ERROR 
02651 0 104000 EMT TERROR DEFINED BY PUT SUBROUT INE 
026512 000137 026664 JMP 1008 :60 TO 100$ IF ERROR 
1298 026516 708: 
1299 026516 112737 000000 001543 MOVB  #RMCS1,PUTINX  ;SETUP PUT INDEX TABLE 
026524 112737 000200 001544 MOVB #200,PUTINX*1 :SET TERMINATOR BYTE 
026532 012737 000001 001410 MOV #NOP'GO,RMCS10 :SET RMCS1 OUTPUT BUFFER = NOP!GO 
026540 004737 044424 JSR PC PUT GO WRITE RMCS1 VIA PUT SUBROUTINE 
026544 000404 BR 80$ :60 TO 80$ IF NO ERROR 
026546 000240 NOP “RETURN HERE IF ERROR 
026550 104000 EMT TERROR DEFINED BY PUT SUBROUTINE 
026552 000137 026664 JMP 1008 760 TO 100$ IF ERROR 
1300 026556 80S: 
1301 026556 112737 000000 001543 MOVB  #RMCS1,PUTINX ;SETUP PUT INDEX TABLE 
026564 112737 000200 001544 MOVB  #200,PUTINX+1  :SET TERMINATOR BYTE 
026572 012737 000015 001410 MOV #OFFSET!GO,RMCS10 RMCS1 OUTPUT BUFFER = OFFSET!GO 
026600 004737 044424 JSR PC PUT :60 write ACS VIA PUT SUBROUTINE 
026604 000404 BR 85$ 0 TO 85$ IF NO ERROR 
026606 000240 NOP RETURN HERE IF ERRO 
026610 104000 EMT TERROR DEFINED BY PUT SUBROUT INE 
026612 000137 026664 JMP 100$ :G0 TO 100$ IF ERROR 
1302 026616 85$: 
1303 026616 004737 044154 JSR PC,GET :G0 READ REGISTER(S) owls GET SUBROUTINE 
026622 000404 BR 90$ ‘60 TO 90$ IF NO ERR 
026624 000240 NOP ‘RETURN HERE IF ERROR 
026626 104000 EMT TERROR # DEFINED BY GET SUBROUTINE 
026630 000137 026664 JMP 100$ :G60 TO 100$ IF ERROR 
1304 026634 90$: 
1305 026634 000240 NOP 
1306 026636 032737 000004 001350 BIT #RMR,RMERTI ;1$ RMR SET ?? 
1307 026644 001007 BNE 100$ SYES 
1308 026646 012737 000004 001140 MOV #RMR ,SGDDAT SENPECTED STATUS 
1309 026654 013737 001350 001142 MOV RMERII,$BDDAT  :RECEIVED STATUS 
1310 026662 104222 EMT 222 
1311 026664 1008: 
1313 RRR eketeaneeteteaneteeteretenee 
TEST 41 PARITY ERROR TEST 
RARER KeARReRaetaeneteeteaeteeakteteeteeeeneee 
026664 TST41: 
026664 000004 SCOPE :SCOPE CALL 
026666 000240 NOP ‘START OF TEST 
026670 012706 001100 MOV #STACK,SP ‘INITIALIZE STACK POINTER 
026674 013700 001276 MOV $BASE ,RO =RO = UNIBUS ADDRESS 
026700 013701 001464 MOV TSTQUE,R1 :(R1) = DEVICE BEING TESTED 
skal 0267046 012737 000041 001226 MOV #41, $TESIN ‘;SET TEST NUMBER IN APT MAIL BOX 
1315 026712 004737 043150 JSR PC 1STPRP : PREPARE DEVICE FOR TEST 
026716 040000 “WORD 04000 TASK DESCRIPTOR AS FOLLOWS: 
“CLEAR CONTROLLER SELECT DEVICE 
026720 000404 BR 10$ :60 10 10$ IF NO ERR 


026722 000240 NOP RETURN HERE IF ERROR 


=— 
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104000 
004737 


012737 


004737 
040000 


027104 
000001 
053530 


027104 


177770 


000200 
044424 


044154 


027104 
000010 
000010 


001350 
001174 


001100 


000042 
043150 
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001350 


001140 
001142 


001226 


10$: 
208: 


30$: 


40$: 


50$: 


60$: 


70$: 


70$ 
#1,R2 

PC, CNTCLR 
30$ 

70$ 

(R1),R3 
#*CUNTHSK RS 


PAT ,R3 
R3,RMCS20 


#200, (R3)+ 
PC, PUT 
40% 


PC,GET 
50$ 
70$ 


#PAR,RMERII 
60% 
#PAR ,SGDDAT 


RMERII, SBDDAT 


R2, $TMPO 
228 


R2 
20% 


SEQ 0132 


sERROR # DEFINED BY TSTPRP SUBROUTINE 
760 TO 70$ IF ERROR 


;R2 = DATA PATTERN 


:G0 ISSUE “as thane —— ™ 
0 NO ioe 


:G0 TO 308 IF 

RETURN HERE IF ERR 

sERROR # DEFINED BY OENTCLA SUBROUTINE 
:G0 TO 70$ IF ERROR 


;SETUP RMCS2 


; OUTPUT a TO RMCS2 
;VALUE TO RMDA 
[WRITE REGISTER OUTPUT INDEX 


:GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
:G0 TO 40$ IF NO = ROR 

RETURN HERE IF ERROR 

sERROR # DEFINED BY PUT SUBROUTINE 


+60 READ $1F NO ERROR GET SUBROUTINE 
ERROR 

ERROR # wight BY GET SUBROUTINE 

:60 TO 70$ IF ERROR 

2 Ri ERROR SET ?? 

SEXPECTED STATUS 


sRECEIVED STATUS 
[DATA PATTERN 


ADVANCE DATA PATTERN 
;BRANCH IF NOT DONE 


Pee eeeeeeeeeeeeeeeee eee eee eee ke Kee eKKKeeteeekeeeeteteeeeeeehene 


S*TEST ae 


18142: 


ILLEGAL REGISTER TEST 


pete eeekeeeeeeeeeeeseeeeeeeeerkeeeKeeKekeeeeekeeteeteeneeeeeeee 


#STACK,SP 
SBASE ,RO 
TSTQUE ,R1 
#42,$TESIN 


PC ew 


04600 


SCOPE CALL 

:START OF TEST 

INITIALIZE STACK POINTER 

RO = UNIBUS ADDRESS 

F(R1) = DEVICE BEING TESTED 

::SET TEST NUMBER IN APT MAIL BOX 


sPREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 
:CLEAR CONTROLLER & SELECT DEVICE 
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142 ILLEGAL REGISTER TEST SEQ 0133 

027140 000404 BR 10% 10$ IF NO ERROR 
027142 000240 NOP RETURN HERE IF ERR 
027144 104000 EMT ERROR # DEFINED ey TSTPRP SUBROUT INE 
027146 000137 027432 JMP 1208 TO 1208 IF E 

1349 027132 108: 

1350 027152 005005 CLR RS 7R5 = EXPECTED STATUS 

1351 027154 004737 044070 JSR PC,GETSTS SETUP FOR STATUS 

1352 027160 013746 000004 MOV ERRVEC, (SP) PUSH ERRVEC ON STAC 

1353 027164 013746 000006 MOV ERRVEC4+2,-(SP) PUSH ERRVEC #2 ON STACK 

1354 027170 012737 027430 000004 MOV WI10S,ERRVEC SETUP FOR BUS TIMEOUT 

1355 027176 012737 000300 000006 MOV #PR6 ERRVEC#2 

1356 027204 005002 CLR R2 :R2 = REGISTER INDEX 

1357 027206 208: 

1358 027206 004737 053530 JSR PC,CNTCLR 760 ISSUE CONTROLLER CLEAR 
027212 000404 BR 30$ :G0 TO 30$ IF NO ER ROR 
027214 000240 NOP [RETURN HERE IF ERROR 
027216 104000 EMT ;ERROR NUMBER DEFINED BY SUBROUTINE 
027220 000137 027344 JMP 70% :60 TO 70$ IF ERROR 

1359 027226 010003 30$: MOV RO,R3 7R3 = REGISTER ADDRESS 

1360 027226 060203 ADD R2,R3 

1361 027230 005013 CLR (R3) :CLEAR THE REGISTER 

1362 027232 004737 052056 JSR PC,DEVSEL :G0 SELECT DEVICE 
027236 000404 BR 35$ 760 TO 35$ IF NO ERROR 
027240 000240 NOP [RETURN HERE IF ERROR 
027242 104000 EMT TERROR # DEFINED BY gEvset SUBROUT INE 
027244 000137 027432 JMP 120$ 760 TO 120$ IF ERROR 

1363 027250 35$: 

1364 027250 004737 044154 JSR PC,GET 60 READ REGISTER(S) WITH GET SUBROUTINE 
027254 000404 BR 40$ :GO TO 40$ IF NO ER ROR 
027256 000240 NOP RETURN HERE IF ERR 
027260 104000 EMT TERROR # DEFINED BY “GET SUBROUT INE 
027262 000137 027344 JMP 70$ :G0 TO 70$ IF ERROR 

1365 027266 40$: 

1366 027266 004737 045152 JSR PC,PRIERR 3;GO CHECK FOR a bee ERRORS 
027272 000405 BR 50$ :GO TO 50$ IF NO ERROR 
027274 000240 NOP [RETURN HERE IF ERROR 
027276 104000 EMT . TERROR # DEFINED BY PRIERR SUBROUTINE 

27300 004736 JSR PC,a(SP)+ 760 BACK FOR MORE ERROR CHECKS 

027302 000137 027344 JMP 70$ 760 TO 70$ IF ERROR 

1367 027306 010537 001140 50$: MOV RS ,$GDDAT 

1368 027312 013737 001350 001142 MOV RMERII,$BDDAT  ;GET DRIVE'S ILR STATUS 

1369 027320 042737 177775 001142 BIC #*°CILR,$BDDAT 

1370 027326 023737 001140 001142 CMP SGDDAT,$BDDAT ;1S ILR STATUS OK?? 

1371 027334 001403 BEQ 70 YES! ! 

1372 027336 010237 001174 MOV R2,$TMPO :SAVE R2 FOR ERROR DATA 

1373 027342 104256 EMT 256 

1374 :70$: ADD #2,R2 

1375 ; CMP #RMBAE ,R2 1S, NEXT REGISTER RMBAE?? 

1376 ; BNE 80 7 

1377 : MOV MAIGO!AIT, RMcs1 (Rd) 7SET Al6 & AI7 

1378 ; MOV RMBAE(RO),R3 =: IS THIS AN RH70?? 

1379 ; BIC #*C<BITO'BITI>,R3 sCLEAR ALL Bu! ADDRESS BITS 

1380 : CMP #BITO'BIT1,R3 | ;ARE ADDRESS BITS ON ? 

1381 ; BEQ 100$ YES 

1382 ; MOV #ILRLRS [NO - EXPECT ILR = 

1383 ; BR 1 

1384 :80$: CMP #RMCS342,R2 :SHOULD ILR BE SET?? 
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foo ILLEGAL REGISTER TEST SEQ 0134 
1385 ; BNE 90$ NO! ! 
1386 : MOV #ILRLRS YES! ! 
1387 : BR 100$ 
1388 :90$: CMP #76,R2 DONE ?? 
1389 LO 120$ YES! ! 
1390 :100$: BR 20$ 
1391 [THE FOLLOWING CODING FOR HANDLE RH70 
1392 *REGISTER NUMBERS 1S EITHER 22 OR 32 
1393 027344 062702 000002 708: ADD #2,R2 ; INCREMENT THE REGISTER ADDRESS 
1394 027350 022702 000050 CMP #50,R2 ‘TIME TO CHECK THE EXTEND ADDRESS REG ? 
1395 027354 101314 BHI 20$ ‘BRANCH IF NOT 
1396 027356 103420 BLO 80$ ‘BRANCH IF ALREADY SET UP 
1397 027360 012705 000002 MOV #ILRLRS “EXCEPT ILR HAPPEND 
1398 027364 012760 001400 000000 MOV #A16'A17,RMCS1(RO) :SET EXTENDED ADDRESS BITS 
1399 027372 012702 000054 MOV #54 ,R2 :SET ADDRESS TO 54, IF 2 REGISTERS 
1400 027376 016003 000050 MOV 50(RO),R3 71S THIS 22 REG RH? 
1401 027402 042703 177774 BIC #177774, R3 [LEFT ONLY BIT O AND BIT 1 
1402 027406 022703 000003 CMP MBITO'BIT1,R3 ;BIT 0 AND BIT 1 SET + THE SAME TIME ? 
1403 027412 001402 BEQ 80$ “BRANCH IF SO 
1404 027414 012702 000050 MOV #50,R2 s;OTHERWISE,SET ADDRESS TO 50 
1405 027420 022702 000074 80$: CMP #74.R2 TALL REGISTERS CHECKED ? 
1406 027424 101402 BLOS 120$ ;BRANCH IF SO 
1407 027426 000667 BR 20$ “NEXT REGISTER 
1409 027430 022626 110$: CMP (SP)+,(SP)+4 
1410 027432 1208: 
027432 012637 000006 MOV (SP)+,ERRVEC+2 POP STACK INTO ERRVEC+2 
eve 027436 012637 000004 MOV (SP)+,ERRVEC 33POP STACK INTO ERRVEC 
1413 SRA 
STEST 43 SEEK LAST CYLINDER 
° SERRE REE RERAEEEEAAEEEEEERREEKEARKEAKEKKAKE Ae 
027442 18143: 
027442 000004 SCOPE ;SCOPE CALL 
027444 000240 NOP sSTART OF TEST 
027446 012706 001100 MOV MSTACK,SP s INITIALIZE oe POINTER 
027452 013700 001276 MOV $BASE ,RO :RO = UNIBUS ADDRESS 
027456 013701 001464 MOV TSTQUE RI :(R1) = DEVICE BEING TESTED 
027462 012737 000001 001206 MOV STIMES =:D0 1 ITERATION 
1216 027470 012737 000043 001226 MOV ay STESTN o2SET TEST NUMBER IN APT MAIL BOX 
1415 027476 10$: 
1416 027476 004737 043150 JSR PC,TSTPRP ;PREPARE DEVICE FOR TEST 
027502 054130 -WORD 054130 [TASK DESCRIPTOR AS FOLLOWS: 
[CLEAR CONTROLLER & SELECT DEVICE 
sVERIFY CONTROLLER CLEAR OPERATION 
;PACK ACKNOWLEDGE IF VOLUME NOT VALID 
[VERIFY PACK ACKNOWLEDGE 
SRECALIBRATE IF ‘'SKI' OR “'PIP’' IS SET 
; VERIFY RECALIBRATION 
027504 000404 BR 80% 760 TO 80$ IF NO ERROR 
027506 000240 NOP ‘RETURN HERE IF ERR 
027510 104000 EMT sERROR # DEFINED BY a SUBROUT INE 
027512 000137 027730 JMP 140% *60 TO 140$ IF ERROR 
1417 027516 80S: 
1418 027516 012737 001466 001444 MOV #822. ,RMDCO ZLAST CYLINDER 
1419 027524 012737 000000 001416 MOV #0, RMDAO :TRACK = 0, SECTOR = 0 
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143 SEEK LAST CYLINDER ' SEQ 0135 
1420 027532 012737 000005 001410 MOV SEEK GO, RMCS10 ;LOAD SEEK COMMAND IN BUFFER, 
1421 027540 012702 001543 MOV #PUTINX,R2 :R2 POINTS TO REGISTER TABLE ‘ 
1422 027544 112722 000034 MOVB  #RMDC,(R2)+ [WRITE REGISTER INDEX TABLE 
1423 027550 112722 000006 MOVB  #RMDA.(R2)+ 
1424 027554 112722 000000 MOVB  #RMCS1,(R2)4 
1425 027560 112722 000200 MOVB #200. (R2)* :WRITE TERMINATOR 
1426 027564 004737 044424 JSR [GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
027570 000404 BR 50 <_" :60 TO 90$ IF NO ER ROR 
027572 000240 NOP sRETURN HERE IF ERROR 
027574 104000 EMT TER ROR " DEF INED ae PUT SUBROUTINE 
027576 000137 027730 JMP 1408 :G0 TO 140$ IF ERROR 
1427 027602 004737 044070 90$: JSR PC,GETSTS SETUP FOR STATUS FETCH 
1428 027606 004737 044766 JSR PC, TIMOUT “WALT FOR SEEK TO COMPLETE 
1430 027612 004737 044154 JSR PC,GET 60 READ REGISTER(S) WITH GET SUBROUTINE 
027616 000404 BR 100$ 760 TO 100$ IF NO ER ROR 
027620 000240 NOP RETURN HERE IF ERR 
027622 104000 EMT ‘ERROR # DEFINED BY “cer SUBROUT INE 
027624 000137 027730 JMP 140$ :GO TO 140$ IF ERROR 
1431 027630 109$: 
1432 027630 004737 045152 JSR PC, PRIERR 60 CHECK FOR PRIMARY ag RRORS 
027634 000405 BR 110$ 760 TO 110% IF NO ERRO 
027636 000240 NOP RETURN HERE IF WERRO OR 
027640 104000 EMT TERROR # DEFINED BY PRIERR SUBROUTINE 
027642 004736 JSR PC,a(SP)+ :60 BACK FOR MORE ERROR CHECKS 
027644 000137 027730 JMP 140$ :GO TO 140$ IF ERROR 
1433 027650 110$: 
1434 027650 004737 052270 JSR PC,SEKSTS 3;GO VERIFY RESULTS Ds OPERATION 
027654 000405 BR 126$ 760 TO 120$ IF NO ERR 
027656 000240 NOP ;RETURN HERE IF ERROR” 
027660 104000 EMT TERROR # DEFINED BY SEKSTS SUBROUTINE 
027662 004736 JSR PC,a(SP)+ 3;GO BACK FOR MORE ERROR CHECKS 
027664 000137 027730 MP 146$ 760 TO 140$ IF ERROR 
1435 027670 120$: 
1436 027670 004737 051644 JSR PC, CMPERRSTS ;CHECK ANY ERRORS NOT MASKED 
027674 115760 . WORD NDTMSK sMASK FOR RMER1 
027676 000010 -WORD DPE :MASK FOR RMERZ 
027700 000405 BR 130$ 60 TO 130$ IF NO ERROR 
027702 000240 NOP > RETURN HERE IF ERROR 
027704 104000 EMT sERROR # DEFINED BY CMPERRSTS SUBROUTINE 
027706 004736 JSR PC,a(SP)+ [G0 BACK FOR MORE ERROR CHECKS 
027710 000137 027730 JMP 140$ 760 TO 140$ IF ERROR 
1437 027714 130$: 
1438 027714 004737 046004 JSR PC,SECERR 3GO CHECK FOR SECONDARY ERRORS 
027720 000403 BR 140$ :GO TO 140% IF NO ERROR 
027722 000240 NOP ;RETURN HERE IF ERROR 
027724 104000 EMT “ERROR # DEFINED BY SECERR SUBROUTINE 
027726 004736 JSR PC,a(SP)+ ;GO BACK FOR MORE ERROR CHECKS 
1439 027730 140$: 
4 
1441 eee eekeeeeKe eee eee eee eee eee eee eee eee eeeKe ree 
*STEST 44 SEEK FIRST CYLINDER 
'MABBRBBBBBASRARAABRBBRBAAAARRRERAAARERSESRRSESEREBRSRERERERERERERE SERBS OS 
027730 1S 144: 
027730 000004 SCOPE :SCOPE CALL 
027732 000240 NOP “START OF TEST 


027734 012706 001100 MOV MSTACK,SP INITIALIZE STACK POINTER 


iw RMOS/3/2 FCTNL TST 1 
SEEK FIRST CYLINDER 


So 

o 

Nm 

o 
o--—— O000 
Sant et es os ot ot 
PMP PoPofrofneororw 
SNS 
WRNMNNOWWWw 
NMR rennrnns 


004737 
004737 


000137 
004737 


000137 
136 004737 


152 000137 


156 004737 
162 115760 


001276 


000044 


043150 


030216 
C00000 


044424 


030216 
044070 
044766 


044154 


030216 
045152 


030216 
052270 


030216 
051644 
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001206 
001226 


001444 
001416 
001410 


10$: 


80$: 


90$: 


100$: 


110$: 


120$: 


80% 


1408 


#0. ,RMDCO 
#0 


#PUTINKX,R2 
MRMDC,(R2)+ 
#RMDA, (R2)+ 


MRMCS1,<R2)+ 


#200, (R2)+ 
PC PUT 

90$ 

140$ 
PC,GETSTS 
PC. TIMOUT 


PC,GET 
100% 


140% 
PC,PRIERR 
110% 


PC ,a(SP)+ 


146$ 


PC,SEKSTS 


126$ 


PC, a(SP)¢ 
146$ 


PC,CMPERRSTS 
ND TMSK 


,RMDAO 
MSEEK!GO,RMCS10 


;RO = UNIBUS ADDRESS 

;(R1) = DEVICE BEING TESTED 

3;D0 1 ITERATION 

3;SET TEST NUMBER IN APT MAIL BOX 


sPREPARE DEVICE FOR TEST 

; TASK DESCRIPTOR AS FOLLOWS: 

;CLEAR CONTROLLER & SELECT DEVICE 
;VERIFY CONTROLLER CLEAR OPERATION 
sPACK ACKNOWLEDGE IF VOLUME NOT VALID 
:VERIFY PACK ACKNOWLEDGE 

sRECALIBRATE IF ‘'SKI'’ OR ‘'PIP’’ IS SET 
VERIFY Wyolis 


RROR 
ERROR # DEFINED BY TSTPRP SUBROUTINE 
3G0 TO 1408 IF ERROR 


CYLINDER = 0 

;TRACK = 0, SECTOR = 0 

:LOAD SEEK COMMAND IN BUFFER 
R2 POINTS TO REGISTER TABLE 

;WRITE REGISTER INDEX TABLE 


WRITE TERMINATOR 

:GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
:G0 TO 90$ IF NO te 

RETURN HERE IF ERR 

;ERROR # DEFINED A “Pur SUBROUTINE 

:G0 TO 1408 IF E 

SETUP FOR STATUS. FETCH 

:WAIT FOR SEEK TO COMPLETE 


3G0 READ aa ht ue ta + i GET SUBROUTINE 
;G0 TO 1008 IF N Paka “a 

SRETURN HERE IF ERRO 

;ERROR # DEFINED BY Get SUBROUTINE 

G0 TO 140$ IF ERROR 


:GO CHECK FOR PRIMARY ERRORS 
:60 TO 110$ IF NO ERROR 

:RETURN HERE IF ERROR 

;ERROR # DEFINED BY PRIERR SUBROUTINE 
:G0 BACK FOR MORE ERROR CHECKS 

GO TO 140% IF ERROR 


760 VERIFY RESULTS OF SEEK OPERATION 
T g A ERR -_ 

ERROR # DEFINED BY OSEKSTS a 

:GO BACK FOR MORE ERROR CHECK 

;G0 TO 140% IF ERROR 


;CHECK ANY ERRORS NOT MASKED 
MASK FOR RMER1 


SEQ 0136 
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144 SEEK FIRST CYLINDER SEQ 0137 


030164 000010 .WORD DPE :MASK FOR RMER2 
030166 000405 BR 130$ 0 130$ IF NO ERROR 
030170 000240 NOP RETURN HERE IF ERROR 
030172 104000 EMT sERROR # DEFINED BY CMPERRSTS SUBROUTINE 
030174 004736 JSR PC,a(SP)+ 760 BACK FOR MORE ERROR CHECKS 
030176 000137 030216 JMP 146$ :G0 TO 140$ IF ERROR 
1465 030202 130$: 
1466 030202 004737 046004 JSR PC, SECERR 60 CHE CK FOR SECONDARY ERRORS 
030206 000403 BR 146$ :GO TO 140$ IF NO ERROR 
030210 000240 NOP ‘RETURN HERE IF ERROR 
030212 104000 EMT [ERROR # DEFINED BY SECERR SUBROUTINE 
030214 004736 JSR PC,a(SP)+ [GO BACK FOR MORE ERROR CHECKS 
1467 030216 140$: 
1469 Pe eeeeeeeee eee eee eee eee eee eee eee eee eee eee eee 
SSTEST 45 SEEK PRIME CYLINDERS 
,eeteeeeeeeeeeaeeeeeeeeeeeeee etek eeeneeaeeheeneeeeeeteeeeeeeeee ee 
030216 18145: 
030216 000004 SCOPE :SCOPE CALL 
030220 000240 NOP ‘START OF TEST 
030222 012706 001100 MOV #STACK,SP SINITIALIZE STACK POINTER 
030226 013700 001276 MOV $BASE ,RO :RO = UNIBUS ADDRESS 
030232 013701 001464 MOV TSTQUE,R1 :(R1) = DEVICE BEING TESTED 
030236 012737 000002 001206 MOV #2, $TIMES +:D0 2 ITERATIONS 
a 030244 012737 000045 001226 MOV #45, $TESIN ::SET TEST NUMBER IN APT MAIL BOX 
1471 030252 012737 000001 001444 MOV #1,RMDCO sFIRST CYLINDER = 1 
1472 030260 108: 
1473 030260 004737 043150 JSR PC, TSTPRP :PREPARE DEVICE FOR TEST 
030264 054130 “WORD 054130 [TASK DESCRIPTOR AS FOLLOWS: 
[CLEAR CONTROLLER & SELECT DEVICE 
:VERIFY CONTROLLER CLEAR OPERATION 
>PACK ACKNOWLEDGE IF VOLUME NOT VALID 
‘VERIFY PACK ACKNOWLEDGE 
SRECALIBRATE IF "SKI" OR ‘'PIP'' 1S SET 
‘VERIFY RECALIBRATION 
030266 000404 BR 80$ :GO TO 80$ IF NO ERROR 
030270 000240 NOP *RETURN HERE IF ERROR 
030272 104000 EMT “ERROR # DEFINED BY TSTPRP SUBROUTINE 
30274 000137 030530 JMP 150$ =60 TO 150$ IF ERROR 
1474 030300 80$: 
1475 030300 012737 000000 001416 MOV #0,RMDAO TRACK = 0, SECTOR = 0 
1476 030306 012737 000005 001410 MOV WSEEK'GO,RMCS10 :LOAD SEEK COMMAND IN BUFFER 
147? 030314 012702 00154 MOV #PUTINX,R2 =R2 POINTS TO REGISTER TABLE 
1478 030320 112722 000034 MOVB = #RMDC, (R2) + [WRITE REGISTER INDEX TABLE 
1479 030324 112722 000006 MOVB  #RMDA.(R2)+4 
1480 030330 112722 000000 MOVB = #RMCS1,(R2)+ 
1481 030334 112722 000200 MOVB #200, (R2)+4 :WRITE TERMINATOR 
1482 030340 004737 044424 JSR PC PUT [GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
030344 000404 BR 90$ 760 TO 90$ IF NO ERROR 
030346 000240 NOP :RETURN HERE IF ERROR 
030350 104000 EMT :ERROR # DEFINED BY PUT SUBROUTINE 
030352 000137 030530 JMP 150$ :GO TO 150$ IF ERROR 
1483 03035 90$: 
1484 030356 004737 044070 JSR PC,GETSTS :SETUP FOR STATUS FETCH 
1485 030362 004737 044766 JSR PC. TIMOUT :WAIT FOR SEEK TO COMPLETE 


MMAQ RMOS/3/2 FCTNL TST 1 
SEEK PRIME CYLINDERS 


1487 


030366 
0 


Bea! ae 


000137 
004737 


000137 
004737 


900137 
004737 


000137 
004737 


000137 
006337 


004737 
054130 


044154 


030530 
045152 


030530 
052270 


030530 
051644 


030530 
046004 


030530 


001444 
001000 


030260 


001100 


000046 


043150 
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001444 


JSR 


1008: 


1108: 


1208: 


130$: 


140$: 


150$: 


PC GET 
106$ 


150% 
PC, ,PRIERR 


116$ 
PC,a(SP)+ 
156$ 
PC, SEKSTS 


1208 


PC,a(SP)+ 
150$ 


NDTM 
DPE 
130$ 


PC,a(SP)+ 
1508 


PC,SECERR 
140% 


PC,a(SP)+ 
150% 


RMDCO 
#512.,RMDCO 
150% 


10$ 


PC, a 


:GO READ REGISTER(S) WITH GET SUBROUTINE 
:G0 TO 100$ IF NO ERROR 

RETURN HERE IF ERROR 

sERROR # DEFINED BY GET SUBROUTINE 

;G0 TO 150$ IF ERROR 

GO CHECK FOR PRIMARY ERRORS 

:G0 TO 110$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PRIERR —_ 
:GO BACK FOR MORE ERROR CHECKS 


:G0 TG 150% IF ERROR 


:G0 VERIFY aims oa m oes OPERATION 
:G0 TO 120$ IF NO ERR 

;RETURN HERE IF ERROR. 

;ERROR # DEFINED BY SEKSTS SUBROUTINE 
:GO BACK FOR MORE ERROR CHECKS 

G0 TO 150$ IF ERROR 


;CHECK ANY ERRORS NOT MASKED 

:MASK FOR RMER1 

;MASK FOR RMER2 

:G0 TO 130$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY CMPERRSTS SUBROUTINE 
:GO BACK FOR MORE ERROR CHECKS 

60 TO 150$ IF ERROR 


:GO CHECK FOR SECONDARY ERRORS 
;G0 TO 140$ IF NO ERROR 

;RETURN HERE IF ERROR 

ZERROR # DEFINED BY SECERR SUBROUTINE 
:GO BACK FOR MORE ERROR CHECKS 

;G0 TO 150$ IF ERROR 


SHIFT TO NEXT ate CYLINDER 
+! Bi TEST DONE? 


[GO DO NEXT CYLINDER 


° RAAT REAR TAReKeAKe eRe eee eh 


SEEK ZERO DIFFERENCE 


SERRATE TATA K eT Kee eee K eee 


SHTEST 46 
18146: 


10$: 


#STACK,SP 
SBASE ,RO 
TSTQUE ,R1 
#1,$TIMES 


#46, $TESIN 


SCOPE CALL 
;START OF TEST 
INITIALIZE STACK POINTER 


:RO = UNIBUS ADDRESS 
3(R1) = dh: BEING TESTED 
3;D0_1_ITERATION 


::SET TEST NUMBER IN APT MAIL BOX 


PREPARE DEV 
: TASK DESCRI 


ICE FOR TEST 
PTOR AS FOLLOWS: 


| a RMO5/3/2 FCTNL TST 1 
146 SEEK ZERO DIFFERENCE 


Oe et et ot ts st I OOO 


tt ak as a os os a es 
PPA A ASTI 


030700 
030704 


——— =D 0000 
— oo 
PMOTURIPOPPoPonorns 
SNS NS NNN 
MNNRNOWWWO 
MMRNRNVNNwWw 


004737 
004737 


000137 
004737 


000137 
004737 


000137 
004737 


000137 


031036 
000003 


000200 
044424 


031036 
044070 
044766 


044154 


031036 
045152 


031036 
052270 


031036 
051644 


031036 
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80$: 


90$: 


1008: 


1208: 


130$: 


1408: 


80$ 


170% 


#3,R3 
#0,RMDCO 
#0,RMDAO 


#SEEK!GO,RMCS10 
#PUTINX 


#RMCS1, (R2)+ 
#200, (R2)4 


PC ,PUT 
100$ 


170% 
PC,GETSTS 
PC.TIMOUT 
PC,GET 
120$ 

170$ 


PC,PRIERR 
130$ 


PC,a(SP)+ 


176$ 


PC,SEKSTS 
1408 


PC,a(SP)+ 


176$ 


PC,CMPERRSTS 
NDTMSK 


DPE 
150% 


PC,a(SP)*+ 


176$ 


;CLEAR CONTROLLER & SELECT DEVICE 
:VERIFY CONTROLLER CLEAR OPERATION 


; OWLEDGE | 
ZRECALIBRATE IF "SKI" OR "PIP" IS SET 
:VERIFY RECALIBRATION 

:G0 TO 80 


ERROR 

ERROR #_ DEFINED +a TSTPRP SUBROUTINE 
G0 TO 170$ IF ERRO 
;R3 = NUMBER OF SEEKS 

CYLINDER = 0 

: TRACK = 0, SECTOR = 0 
FUNCTION CODE FOR SEEK 

;R2 POINTS TO REGISTER INDEX 
WRITE REGISTER INDEX TABLE 


; TERMINATE TABI.E 


:60 a REGISTER(S) WITH PUT SUBROUTINE 
:G0_ TO 100$ IF NO ER “ 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PUT SUBROUTINE 

:G0 TO 170$ IF ERROR 

SETUP FOR READING STATUS 

:WAIT FOR COMPLETION 


:60 READ REGISTER(S) Ha GET SUBROUTINE 
0 TO 120$ IF NO ny 

ZRETURN HERE IF ERR OR. 

sERROR # DEFINED BY GET SUBROUTINE 

:60 TO 170$ IF ERROR 


‘- er FOR oye ERRORS 
0 130$ IF NO ERROR 

‘RETURN HERE IF ERROR 

sERROR # DEFINED BY PRIERR SUBROUTINE 


:GO BACK FOR MORE ERROR CHECKS 


:G0 TO 170$ IF ERROR 


:GO VERIFY RESULTS OF SEEK OPERATION 
:G0 TO 140$ IF NO ERROR 
RETURN HERE IF ERROR 


ERROR # DEFINED BY SEKSTS SUBROUTINE 
:GO BACK FOR MORE ERROR CHECKS 


:G0 TO 170$ IF ERROR 


CHECK ANY ERRORS NOT MASKED 
:MASK FOR RMER1 

:MASK FOR RMER2 

:GO TO 150$ IF NO ERROR 
RETURN HERE IF ERROR 


ERROR # DEFINED BY CMPERRSTS SUBROUTINE 
:GO BACK FOR MORE ERROR CHECKS 
GO TO 170$ IF ERROR 


SEQ 0139 


CZRMMAO RMO5/3/2 FCTNL TST 1 
SEEK ZERO DIFFERENCE 


146 


ss 
ww 
nr 
ow 


— —s 
ww 
Uw 


Oooew 
ooo COCOCOoOCOoOoCO 


ee ee ee 
PAMAAA AGIA 
ISL or at at et et et ee ee 
—SOOOnOUFwh— 


SOOOCOCOCCOCOOCOCOCOCoOoOoOoOoOoCOoCoOoO 


So 
So 
o 


jolelelelelelelelelolol a) 
WWWWAWI WWW 
ere se 
leolelelelelelelelelal=) 
WWARRMnN 220 
AROS SOWOS LNO 


ee ee ee ee ee ed ed ed od td 
Ay st ts ts ts a tk a tk kk tk dt ss 
SOF Of OF OCONMNG SMO 


wee ieee ee ieee ie ie ieee ie ie lee ie le.) 
PP SES SESE yp Pew 9 ot 


MOONOOe 


thd 


000137 
005303 


001402 
000137 


000137 


004737 
004737 


046004 


031036 


030656 


001100 


4 
000002 
000047 


043150 


031350 
000000 


000200 
044424 


031350 


044070 
044766 
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00 
00 


1206 
1226 


150$: 


160$: 


170$: 


PC .SECERR 
166$ 


:GO CHECK FOR SECONDARY ERRORS 
:G0 TO 160$ IF NO — 

;RETURN HERE IF ERR 

ERROR # DEFINED BY SECERR SUBROUTINE 
:GO BACK _FOR MORE _ CHECKS 

G0 TO 170$ IF ERRO 


te ry ALL SEEKS?? 
NO ° “60 DO NEXT SEEK 


SRR ERE EARAEREEREKKERKeKKeeeeeeKeeKHKe eee 


eTEST 47 


igt47: 


10$: 


80$: 


90$: 


100$: 


SEEK MAXIMUM DIFFERENCE FORWARD 


SEERA EAREEAEEAEE EEE AAEEEE EE ETAAAHEAAERAEAKREKEReeeRe eee eee 


ASTACK ,SP 
$BASE ,RO 
TSTQUE ,R1 
#2,STIMES 


#47 ,$TESIN 


80% 


160% 


#0,RMDCO 
#0 


#PUTINX 


#RMDA, (R2)+ 
#RMDC, (R2) + 
#RMCS1,(R2)+ 
#200, (R2)+4 


PC,PUT 
106$ 
160% 


PC,GETSTS 
PC, TIMOUT 


,RMDAO 
mak 


sSCOPE CALL 

sSTART OF TEST 

s INITIALIZE STACK POINTER 

;RO = UNIBUS ADDRESS 

3(R1) = DEVICE BEING TESTED 

3:D0 2 ITERATIONS 

3:SET TEST NUMBER IN APT MAIL BOX 


s;PREPARE DEVICE FOR TEST 

TASK DESCRIPTOR AS FOLLOWS: 

CLEAR CONTROLLER & SELECT DEVICE 
;VERIFY CONTROLLER CLEAR OPERATION 
sPACK ACKNOWLEDGE IF VOLUME NOT VALID 
;VERIFY PACK ACKNOWLEDGE 

;RECALIBRATE IF ‘'SKI'' OR ‘'PIP’’ IS SET 
VERIFY RECALIBRATION 

G0 TO 80$ IF NO cheng 

+ 34 HERE IF ERROR 

ERROR # DEFINED BY TSTPRP SUBROUTINE 
:G0 TO 160$ IF ERROR 


sees TO CYLINDER 0 
RACK = 0, SECTOR = 0 
FUNCTION CODE FOR SEEK 
R2 POINTS TO REGISTER TABLE 
WRITE REGISTER INDEX TABLE 


;STEUP TERMINATOR BYTE IN TABLE 

260 WRITE REGISTER(S) WITH PUT SUBROUTINE 
A A: ER a 

DEFINED BY PUT SUBROUTINE 


G0 TO 160$ IF ERROR 


;SETUP TO READ ALL REGISTERS 
WAIT FOR SEEK TO COMPLETE 


C 
T 


Z 
4 


R 
7 


MMAO RMO5/3/2 FCTNL TST 1 
SEEK MAXIMUM DIFFERENCE FORWARD 


1556 031206 004737 044154 


000137 
004737 


031350 
045152 


AWLATURIT 


000137 
004737 


031350 
052270 


000137 
004737 


031350 
051644 


WWAWAN AIA AIWN AIAN WWW WANNWw 
i et ot nd od od 
WWW PEPE PEP fone nenononpofeno nono nononofyerornofnonorny 

= 00 SIN NIOA AOA BS 


— 
uw 
oa 
Oo 
SOOCCCOCOOCOCOOCOOCOOCOCOOOCOCOOCOOoOOoOO 

oS 

o 

* 

~ 

w 

o 


AWWA WIN tt 
ke ee ed et ed ds 


ws 
os 


000137 
004737 


031350 
046004 


000137 
005737 


031350 
001444 


001466 
031160 


S¥SSERRS 
™ 
oo 
—o 
me 
NO 
Wo 
~_M' 


001444 


Soooooocooo°oceooo 


Wow 


001100 


000001 001206 
000050 001226 


So oper. -t.4 
Ooorofnucoe 
So 
— 
Ww 
~N 
oS 
So 


oF 


043150 


ooo OCOOCOCOCOoOoCoO 
WA WW tw 
ee ee et ed 


Ser Www 


— 
So 


110$: 


1208: 


130$: 


1408: 


150$: 


160$: 


160$ 
PC. PRIERR 
126$ 
PC, a(SP)¢ 
1606$ 
PC, SEKSTS 


130$ 


PC ,a(SP)+ 


160$ 
ND 
DPE 
1408 


PC ,a(SP)+ 


160$ 


PC,SECERR 
1508 


PC,a(SP)+ 


160$ 
RMDCO 


160% 
#822. ,RMDCO 
90$ 


PC,CMPERRSTS 
TMSK 
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GO READ REGISTER(S) WITH GET SUBROUTINE 
TO 110$ IF NO ERROR 

RETURN HERE IF ERROR 

sERROR # DEFINED BY GET SUBROUTINE 

:60 TO 160$ IF ERROR 

:G0 CHECK FOR PRIMARY ERRORS 
TO 120$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PRIERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 


GO VERIFY RESULTS OF SEEK OPERATION 
:G0_ TO 130$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY SEKSTS SUBROUTINE 
:GO BACK FOR MORE ERROR CHECKS 

:G0 TO 160$ IF ERROR 


:CHECK ANY ERRORS NOT MASKED 
MASK FOR RMER1 

sMASK FOR RMER2 

:GO TO 140$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY CMPERRSTS SUBROUTINE 
;GO0 BACK FOR MORE ERROR CHECKS 

G0 TO 160$ IF ERROR 


:GO CHECK FOR SECONDARY ERRORS 
:GO0 TO 150$ IF NO ERROR 

;RETURN HERE IF ERROR 

ERROR # DEFINED BY SECERR SUBROUTINE 
:GO BACK FOR MORE ERROR CHECKS 

:GO0 TO 160% IF ERROR 


:1S TEST DONE ? 
SVES: : 
;NO - SEEK TO LAST CYLINDER 


'WehRRRARARAAAAAAASASBSAASAASALASASASERESESE EERE EERE SERRE EERE ERR ERR R 


SEEK ADJACENT FORWARD 


'WEeRARALARAASLAASARARAAARBARERASERESASSSEEERESER ERE RE RSE RE RRR R EES R RRR E ER 


S*TEST 50 
15150: 


10$: 


#STACK SP 
SBASE ,RO 
TSTQUE ,R1 
#1, STIMES 


#50,$TESTN 


SCOPE CALL 

sSTART OF TEST 
INITIALIZE STACK POINTER 
:RO = UNIBUS ADDRESS 

:(R1) = DEVICE BEING TESTED 

::D0_ 1_ ITERATION 

::;SET TEST NUMBER IN APT MAIL BOX 


CE FOR TEST 


;PREPARE DEVICE 
PTOR AS FOLLOWS: 


EV 
; TASK DESCRI 


SEQ 0141 


CZRMMAO RMOS/3/2 FCTNL TST 1 
150 SEEK ADJACENT FORWARD 


104000 
00137 031660 


000000 


Sworn 


rete ee dA 
Cover foorr 


452 


WWAAWI IWAN 


WN —O0One 
Ww 
—_— 
Tt a ee ee a 
_N 
rr 


lolol om lo lol ola lolol olololololololo) 
ot et ot 


Ww 
—_— 
oo 
orm 


000200 
044424 


¥ MNMNMNVOWWW 


031504 000137 031660 
1587 031510 004737 044070 
004737 044766 


004737 044154 


WwnrNnN — 
NOGFOoO £ 

So 
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[VERIFY RECALIBRATION 
BR 80$ [60 TO 80$ IF NO ERROR 
NOP SRETURN HERE IF ERROR 
EMT TERROR # DEFINED BY TSTPRP SUBROUTINE 
a JMP 1608 760 TO 160$ IF ERROR 
001444 MOV #0, RMDCO iCYLINDER = 0 
001416 MOV #0,.RMDAO = 0, SECTOR = 0 
001410 MOV #SEEK CO, RMCS10 S FUNCTION CODE FOR SEEK 
MOV UTINX,R2 :R2 POINTS TO REGISTER INDEX 
MOVB alt, (R2)+ [WRITE REGISTER INDEX TABLE 
MOVB #RMDA.(R2)+ 
MOVB  #RMCS1,(R2)+ 
aa MOVB #200,(R2)4 S TERMINATE REGISTER TABLE 
JSR PC PUT :G0 WRITE REGISTER(S) WITH PUT SUBROUTINE 
BR 106$ :GO0 TO 100$ IF NO ER ROR 
NOP [RETURN HERE IF ERRO 
EMT TERROR # DEFINED BY “Put SUBROUTINE 
JMP 160$ :60 TO 1608 IF E 
100$: JSR PC ,GETSTS :SETUP FOR STATUS. PETCN 
JSR PC. TIMOUT :WAIT FOR COMPLETION 
JSR PC GET :G0 READ REGISTER(S) WITH GET SUBROUTINE 
BR 110$ :GO TO 110$ IF N O ERROR 
NOP :RETURN HERE IF ERR 
EMT TERROR # DEFINED BY fer SUBROUT INE 
aah JMP 160$ :60 TO 160$ IF ERROR 
JSR PC, PRIERR :G0 CHECK FOR PRIMARY of RRORS 
BR 126$ :G0 TO 120$ IF N 0 ERR 
NOP [RETURN HERE IF ERR gs 
EMT TERROR # DEFINED BY PRIERR SUBROUTINE 
JSR PC,a(SP)+ 'GO BACK FOR MORE ERROR CHECKS 
Si JMP 160$ :GO TO 160$ IF ERROR 
JSR PC ,SEKSTS 7GO VERIFY RESULTS OF SEEK OPERATION 
BR 136$ :G0 TO 130$ IF NO ERR OR 
NOP SRETURN HERE IF ERROR 
EMT ;ERROR # DEFINED BY SEKSTS SUBROUT INE 
JSR PC, a(SP)+ "GO BACK FOR MORE ERROR CHECKS 
a JMP 160$ 760 TO 160$ IF ERROR 
JSR PC,CMPERRSTS | ;CHECK ANY ERRORS NOT MASKED 
.WORD NDTMSK ‘MASK FOR RMER1 
“WORD DPE zMASK FOR RMER2 
BR 1408 0 140$ IF NO ERROR 
NOP ‘Oe TURN HERE IF ERROR 
EMT ZERROR # DEFINED BY CMPERRSTS SUBROUTINE 
JSR PC, a(SP)+ O BACK FOR MORE ER ROR CHECKS 
Am JMP 166$ £60 TO 160$ IF ERRO 


1 
12-58 


;CLEAR CONTROLLER @ SELECT DEVICE 

;VERIFY CONTROLLER CLEAR OPERATION 

* PACK ACKNOWLEDGE IF VOLUME NOT VALID 
; VERIFY PACK ACKNOWLEDGE , 

;RECALIBRATE IF ‘’SKI"' OR PIP’ IS SET 


SEQ 0142 


_—— RMO5/3/2 FCTNL TST 1 


SEEK ADJACENT FORWARD 


1598 ps loge 
3 
3 
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150$: 


160$: 


JSR 


PC. SECERR 
156$ 


PC a(SP)+ 
166$ 


RMDCO 
160$ 
RMDCO 
90$ 


:G0 CHECK FOR "i enon ERRORS 
6 5 NO ERR 


IF ERROR 
ERROR a Foo ane BY SECERR SUBROUTINE 
;GO BACK FOR MORE — CHECKS 
:G0 TO 160$ IF ERR 
ear TIME THROUGH?? 


:YES = SEEK TO ADJACENT CYLINDER FORWARD 


SERRA AR EERE 


:#TEST 51 


18151: 


10$: 


80$: 


90$: 


100$: 


SCOPE 
N 


SEEK ADJACENT REVERSE 


SERRATE ATER REARS 


MSTACK,SP | 


80% 


160% 


#1 goa 
#0.R 


#RMDA, (R2)+ 
#RMDC, (R2) + 
#RMCS1, (R2)+4 
#200, (R2)+ 


PC PUT 


100$ 


160% 
PC,GETSTS 
PC,TIMOUT 


PC GET 


DAO 
#SEEK' CO, RMCS10 
WPUTINX,R2 


SCOPE CALL 
sSTART OF TEST 
INITIALIZE STACK POINTER 
;RO = UNIBUS ADDRESS 
3(R1) = 445 BEING TESTED 
7:00 1_ ITERATION 
::SET TEST NUMBER IN APT MAIL BOX 


PREPARE DEVICE FOR TEST 

TASK DESCRIPTOR AS FOLLOWS: 

:CLEAR CONTROLLER & SELECT DEVICE 
;VERIFY CONTROLLER CLEAR OPERATION 
PACK ACKNOWLEDGE IF VOLUME NOT VALID 

: VERIFY PACK ACKNOWLEDGE 

;RECALIBRATE IF ''SKI'’ OR PIP" IS SET 
;VERIFY RECALIBRATION 
;G0 TO 80$ 1 ERR 


ERR 
ERROR # DEFINED BY TSTPRP SUBROUTINE 
G60 TO 160$ IF ERROR 


4 49 egy 1 

sTRACK = 0, SECTOR = 0 
:FUNCTION CODE FOR SEEK 

:R2 POINTS TO REGISTER INDEX 
WRITE REGISTER INDEX TABLE 


; TERMINATE TABLE 


:GO0 WRITE $F NO ERROR PUT SUBROUTINE 


:G0 TO 100$ IF N 

;RETURN HERE IF ERR 

ZERROR a 7 ie. BY our SUBROUTINE 
O 160% IF ERROR 

SETUP TO READ ALL REGISTERS 

:WAIT FOR SEEK TO COMPLETE 


3G0 READ REGISTER(S) WITH GET SUBROUTINE 


SEQ 0143 


- | 81 
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mit SEEK ADJACENT REVERSE SEQ 0144 


032034 000404 BR 1108 :60 TO 110$ IF NO ERROR 
032036 000240 NOP ;RETURN | HERE IF ERROR 
032040 104000 : EMT TERROR # DEFINED BY GET SUBROUTINE 
032042 000137 032172 JMP 160$ :60 74 160$ IF ERR 
1625 032046 110$: 
626 0320466 006737 045152 JSR PC. PRIERR :60 CHECK FOR PRIMARY ERRORS 
032052 000405 BR 126$ 0 120$ IF NO ERROR 
032054 000240 NOP ‘eeruR N HERE IF ERROR 
032056 1040900 EMT TERROR # DEFINED BY PRIERR SUBROUTINE 
032060 004736 JSR PC,a(SP)+ ;GO BACK FOR MORE — CHECKS 
032062 000137 032172 JMP 166$ ‘G60 TO 160$ IF ERROR 
1627 032066 1208: 
1628 032066 004737 052270 JSR PC, SEKSTS :G0 VERIFY RESULTS OF SEEK OPERATION 
032072 000405 BR 1308 "GO TO 130$ J OER ROR 
032074 000240 NOP RETURN MERE. iF NERR 
032076 104000 EMT TERROR # DEFINED ng SEKSTS SUBROUT INE 
032100 004736 ‘ JSR PC,a(SP)+ 3;G0 BACK FOR MORE ny OR CHECKS 
032102 000137 032172 MP 160$ ‘GO TO 160$ IF ERRO 
1629 032106 130$: 
1630 032106 004737 051644 JSR PC,CMPERRSTS sCHECK ANY ERRORS NOT MASKED 
032112 115760 «WORD NDTMSK :MASK FOR RMER1 
032114 000010 » WORD DPE —?. FOR RMER2 
032116 000405 BR 140$ *GO TO 140$ IF NO ERROR 
032120 000240 NOP RETURN HERE IF ERR 
032122 104000 . EMT sERROR # DEFINED ny CAPERASTS SUBROUTINE 
032124 004736 JSR PC,a(SP)+ 60 BACK FOR MORE ERROR CHECKS 
032126 000137 032172 JMP 160$ 760 TO 160% IF ERROR 
1631 032132 140$: 
1632 032132 004737 046004 JSR PC,SECERR 360 va FOR eyo ERRORS 
032136 000405 BR 156$ :GO TO 150$ IF NO ERROR 
032140 000240 NOP ;RETURN HERE IF NER ROR 
032142 104000 EMT s ERROR # DEFINED BY SECERR SUBROUTINE 
032144 004736 JSR PC,a(SP)+ ;GO BACK FOR MORE ERROR CHECKS 
032146 000137 032172 JMP 160$ =GO0 TO 160$ IF ERROR 
1633 032152 1508: 
1634 032152 022737 000001 001444 CMP #1,RMDCO :1S THIS THE FIRST SEEK?? 
1635 032160 001004 BNE 160$ NO! 
1636 032162 005337 001444 DEC RMDCO “YES. - SEEK TO ADJACENT CYLINDER 
1637 032166 000137 032002 JMP 90$ 760 SEEK 
1638 032172 160$: 
1640 SARA AAA EA AEE AERA AREER AERA KAR EKER ERRATA ee 
s*TEST 52 SEEK INVALID SECTOR 
pp etekenreeeeeeeeeeeereeeeeee eee eee eee eke eee Kee Kee AeA } 
032172 1S152: 
032172 000004 SCOPE :SCOPE CALL | 
032174 000240 NOP sSTART OF TEST 
032176 012706 001100 MOV #STACK,SP sINITIALIZE STACK POINTER 
032202 013700 001276 MOV SBASE RO :RO = UNIBUS ADDRESS 
032206 013701 001464 MOV TSTQUE,R1 :(R1) = DEVICE BEING TESTED 
166 032212 012737 000052 001226 MOV #52, STESTN ::SET TEST NUMBER IN APT MAIL BOX 
1642 032220 10$: 
1645 032220 004737 043150 JSR PC, TSTPRP ;PREPARE DEVICE FOR TEST 
032224 054130 » WORD 054130 s TASK DESCRIPTOR AS FOLLOWS: 
“CLEAR CONTROLLER & SELECT DEVICE 
sVERIFY CONTROLLER CLEAR OPERATION 
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000137 
004737 


000137 
004737 


000137 
004737 
004737 


000137 


004737 
000405 
000240 


LT 
SECTO 


ST 1 
TOR 


032610 
000005 


044070 
053530 


032610 
044154 


032610 
053646 


032610 
044424 


032610 
044766 
044154 


032610 
045152 
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001410 


001416 


80$: 


90$: 


95$: 


100$: 


110$: 


120$: 


125$: 


80$ 


1808 


os bare RMCS10 
#0,RMOFO 


#0 RADCO 

#30. ,RMDAO 
#PUTINX,R2 
#RMOF, (R2)4 


PC,GETSTS 
PC, CNTCLR 
95$ 

180$ 

PC, GET 
106$ 

180$ 

PC, CLRSTS 
1108 


PC,a(SP)+ 
1808 


PC,PUT 
1208 

180% 

PC, TIMOUT 
PC,GET 
125$ 

180$ 

PC ,PRIERR 


130 


:PACK ACKNOWLEDGE IF VOLUME NOT VALID 
;VERIFY PACK ACKNOWLEDGE 
;RECALIBRATE IF at tin OR ''PIP’’ IS SET 


; F 
;RETURN HERE IF ERR 

sERROR # DEFINED BY TSTPRP SUBROUT INE 
3:60 TO 180$ IF ERROR 


:SEEK COMMAND 

;FORMAT 18 BIT 

:CYLINDER = 0 

: INVALID SECTOR = 30., = 0 
:R2 POINTS TO REGISTER TABLE 


[WRITE REGISTER INDEX TABLE 


; TERMINATE TABLE 
;SETUP INPUT REGISTER INDEX 


:60 es Ta hae ea 
:G0 TO 95$ IF NO ERRO 

RETURN HERE IF ERRO R 

ERROR NUMBER y A BY SUBROUTINE 
:G0 TO 180$ IF ERRO 


G0 READ ae WITH GET SUBROUTINE 
:G0 TO 100$ IF NO ERROR 

RETURN HERE IF ERROR 

sERROR # DEFINED BY GET SUBROUTINE 

:G0 TO 180$ IF ERROR 


G0 VERIFY an tine om OPERATION 
:GO0 TO 110$ IF NO ERR 

RETURN HERE IF ERROR 

;ERROR # DEFINED BY CLRSTS SUBROUTINE 
:G0 BACK FOR MORE ERROR CHECKS 

G0 TO 180$ IF ERROR 


:60 WRITE REGISTER(S) WITH PUT SUBROUTINE 
TO 1208 IF NO OR 

TRETURN HERE IF ERROR 

ERROR # DEFINED 2 a SUBROUTINE 

:G0 TO 1808 IF ERRO 


;WAIT FOR GO TO RESET 


GO READ REGISTER(S) “a GET SUBROUTINE 
;G0 TO 125$ IF NO ERR 

:RETURN HERE IF ERROR. 

sERROR # DEFINED BY GET SUBROUTINE 

:G0 TO 180$ IF ERROR 


:GO CHECK FOR gy ERRORS 
:G0 TO 130$ IF NO ERROR 
;RETURN HERE IF ERROR 


SEQ 0145 


sO ss Le 
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— RMO5/3/2 FCTNL TST 1 


SEEK INVALID SECTOR 


032450 104000 
032452 004736 
$28 000137 


460 oath ad 
000137 


004737 


000137 
004737 


DVDSP SST TTT 


Ww 
Nm 


032610 


032610 


032620 013700 
032624 013701 
032630 012737 
032636 004737 
032642 054130 


032610 
052270 


032610 


051644 


032610 
046004 


032610 
001416 
000037 
010000 
010000 


000037 
032324 


001100 


000053 
043150 
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001416 
001442 


001442 
001416 


001226 


130$: 


140$: 
150$: 


160$: 


170$: 


180$: 


PC, a(SP)+ 
186$ 


PC ,SEKSTS 
1468 


PC,a(SP)+ 


180$ 


PC,CMPERRSTS 
LAE! NDTMSK 
DPE 

160% 


PC,a(SP)+ 
180$ 


PC,SECERR 
170% 


PC ,a(SP)+ 


180$ 

RMDAO 
#31.,RMDAO 
90$ 
#FMT16,RMOFO 
180$ 


#FMT16,RMOFO 
#31. ,RMDAO 
90$ 


sERROR # DEFINED BY PRIERR SUBROUTINE 
+60 BACK FOR MORE ERROR CHECKS 
:60 TO 180$ IF ERROR 


:60 i RESULTS of Be OPERATION 
:60 1408 IF NO i 

RETURN HERE IF ERR oR 

ERROR # DEFINED BY SEKSTS SUBROUTINE 
:G0 BACK FOR MORE ERROR CHECKS 

G0 TO 180$ IF ERROR 


CHECK ANY ctor a MASKED 
;MASK FOR RMER1 


;MASK FOR RMER2 

G0 TO 160$ IF NO ERROR 

;RETURN HERE IF ERROR 

ERROR # DEFINED BY CMPERRSTS SUBROUTINE 
;GO BACK FOR MORE ERROR C.‘ECKS 

:GO0 TO 180$ IF ERROR 


;G0 CHECK FOR SECONDARY ERRORS 
NO ERR OR 

TERROR # DEFINED BY SECERR SUBROUTINE 

"GO BACK FOR MORE ERROR CHECKS 

:GO TO 180$ IF ERROR 

: INCREMENT SECTOR ADDRESS 

INO - TEST NEXT SECTOR 

:was TEST DONE FOR 16 BIT MODE YET ? 

“SET 16 BIT FORMAT MODE 


;SET INVALID SECTOR 31. 
:NO - TEST NEXT SECTOR 


PUeeeeeekneeeeeeeeeeeeee eee eee keke KKeKkKeKketeeKeeeeeteeteteees 


SATEST 53 


18153: 


SEEK INVALID TRACK 


SUR eeee eee eee eee eee eek eeKkeKeeKeKeeeeKKeteeeteeteeee 


#STACK ,SP 


#53, $TESTN 


ta 


a® 
054130 


:SCOPE CALL 

sSTART OF TEST 

INITIALIZE STACK POINTER 

;RO = UNIBUS ADDRESS 

:(R1) = DEVICE BEING TESTED 

:;SET TEST NUMBER IN APT MAIL BOX 


Se tg DEVICE FOR + ga 

; TASK DESCRIPTOR AS F 

:CLEAR CONTROLLER & SELECT OE VICE 
:VERIFY CONTROLLER CLEAR OPERATION 
:PACK ACKNOWLEDGE IF VOLUME NOT VALID 
sVERIFY PACK ACKNOWLEDGE 
sRECALIBRATE IF ‘’SKI"' OR ‘'PIP’' 1S SET 


SEQ 0146 


1 
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SEEK INVALID TRACK SEQ 0147 
:VERIFY RECALIBRATION 

032644 000404 BR 80$ 760 TO 80$ IF NO ERROR 
032646 000240 NOP RETURN HERE IF ERROR 
032650 104000 EMT ZERROR # DEFINED BY TSTPRP SUBROUTINE 
032652 000137 033236 JMP 2008 :60 TO 200$ IF ERROR 

1692 032656 80$: 

1693 032656 012737 000005 001410 MOV #SEEK!GO,RMCS10 ;SEEK COMMAND 

1694 032664 012737 000000 001444 MOV #0, RMDCO [CYLINDER = 0 

1695 032672 013737 001332 001416 MOV LSTRK,RMDAO [LAST TRACK, SECTOR = 0 

1696 032700 105237 001417 INCB  —s RMDAO1 : SETUP FIRST INVALID TRACK 

1697 032704 012737 000000 001442 MOV #0,RMOFO 718 BIT F 

1698 032712 012702 001543 MOV #PUTINX,R2 R2 POINTS” 10. REGISTER TABLE 

1699 032716 112722 000032 MOVB  #RMOF,(R2)+ sWRITE REGISTER INDEX 

1700 032722 112722 000034 MOVB  #RMDC.(R2)+ ‘TABLE FOR OUTPUT 

1701 032726 112722 000006 MOVB  #RMDA.(R2)+ 

1702 032732 112722 000000 MOVB = #RMCS1,(R2)4 

1703 032736 112722 000200 MOVB #200,(R2)+4 : TERMINATE TABLE 

1704 032742 004737 044070 JSR PC,GETSTS :SETUP INPUT TABLE FOR STATUS 

1705 032746 90S: 

1706 032746 004737 053530 JSR PC,CNTCLR 60 ISSUE CONTROLLER CLEAR 
032752 000404 BR 95$ :G0 TO 95$ IF NO ERR 
032754 000240 NOP RETURN HERE IF ERRO ay 
032756 104000 EMT sERROR NUMBER DEFINED BY SUBROUTINE 
032760 000137 033236 JMP 2008 :G0 TO 200$ IF ERROR 

1707 032764 95$: 

1708 032764 004737 044154 JSR PC GET :G0 READ REGISTER(S) WITH GET SUBROUTINE 
032770 000404 BR 100$ 760 TO 100$ IF NO ERROR 
032772 000240 NOP “RETURN HERE IF NER ROR 
032774 104000 EMT TERROR # DEFINED BY ott SUBROUT INE 
032776 000137 033236 JMP 200% 760 TO 200$ IF ERRO 

1709 033002 100$: 

1710 033002 004737 053646 JSR PC, CLRSTS :G0 VERIFY CONTROLLER. CLEAR OPERATION 
033006 000405 BR 110$ :GO0 TO 110$ IF NO ERR 
033010 000240 NOP [RETURN HERE IF ERROR. 
033012 104000 EMT [ERROR # DEFINED BY CLRSTS SUBROUTINE 
033014 004736 JSR PC,a(SP)+ :GO BACK FOR MORE ERROR CHECKS 
033016 000137 033236 JMP 200$ :GO TO 200$ IF ERROR 

1711 033022 110$: 

1712 033022 004737 044424 JSR PC PUT :GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
033026 000404 BR 120$ :GO0 TO 120$ IF NO ER ROR 
033030 000240 NOP RETURN HERE IF ERRO 
033032 104000 EMT TERROR # DEFINED BY PUT SUBROUT INE 
033034 000137 033236 JMP 2008 760 TO 200$ IF ERROR 

1713 033040 120$: 

1716 033040 004737 044766 JSR PC, TIMOUT :WAIT FOR GO TO RESET 

1716 033044 004737 044154 JSR PC,GET :GO READ REGISTER(S) WITH GET SUBROUTINE 
033050 000404 BR 130$ :GO TO 130$ IF NO ER RROR 
033052 000240 NOP RETURN HERE IF ERR 
033054 104000 EMT TERROR # DEFINED BY (beT SUBROUT INE 
033056 000137 033236 JMP 200% 760 TO 200$ IF ERRO 

1717 033062 1308: 

1718 033062 004737 045152 JSR PC .PRIERR :GO CHECK FOR PRIMARY oRRORS 
033066 000405 BR 146$ :GO TO 140$ IF NO ERRO 
033070 000240 NOP [RETURN HERE IF ERROR 
033072 104000 EMT TERROR # DEFINED BY PRIERR SUBROUTINE 
033074 004736 JSR PC,a(SP)¢ *GO BACK FOR MORE ERROR CHECKS 


F 12 : 
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2R 
153 SEEK INVALID TRACK SEQ 0148 

033076 000137 033236 JMP 2008 :GO TO 200% IF ERROR 

1719 033102 140$: 

1720 033102 004737 052270 JSR PC,SEKSTS 360 + 4 RESULTS of Fs OPERATION 
033106 000405 BR 156$ :60 TO 150% IF NO ERR 
033110 000240 NOP ‘RETURN HERE IF ERROR 
033112 104000 EMT sERROR # DEFINED BY SEKSTS SUBROUTINE 
033114 004736 JSR PC,a(SP)+ 60 BACK FOR MORE ERROR CHECKS 
033116 000137 033236 yMP 200$ :GO TO 200$ IF ERROR 

1721 033122 150$: 

1722 033122 160$: 

1723 033122 004737 051644 JSR PC,CMPERRSTS ; CHECK ANY cs ton NOT MASKED 
033126 117760 ~ WORD ]AE'NDTMSK ; MASK R RMERI 
033130 000010 » WORD DPE sMASK FOR RMER 5° 
033132 000405 BR 1708 :G0 TO 170$ IF NO ERROR 
033134 000240 NOP [RETURN HERE IF ERROR 
033136 104000 EMT sERROR # DEFINED BY CMPERRSTS SUBROUTINE 
033140 004736 JSR PC,a(SP)+ 60 BACK FOR MORE ERROR CHECKS 
033142 000137 033236 JMP 200$ :60 TO 200$ IF ERROR 

1724 033146 1708: 

1725 033146 004737 046004 JSR PC,SECERR 3;GO CHECK FOR SECONDARY ERRORS 
033152 000405 BR 180$ :G0 TO 180$ IF NO ERROR 
033154 000240 NOP [RETURN HERE IF ERROR 
033156 104000 EMT sERROR # DEFINED BY SECERR SUBROUTINE 
033160 004736 JSR PC,a(SP)+ ;G0 BACK FOR MORE ERROR CHECKS 
033162 000137 033236 MP 200$ :60 TO 200$ IF ERROR 

1726 033166 180$: 

1727 033166 105237 001417 INCB RMDAO+1 s INCREMENT TRACK ADDRESS 

1728 033172 123727 001417 000200 CMPB = RMDAO+1,#128. : DONE?? 

1729 033200 101414 BLOS 195% :NO-DO NEXT TRACK 

1731 033202 032737 010000 001442 BIT #FMT16,RMOFO :WAS TEST DONE FOR 16 BIT?? 

1732 033210 001012 BNE 200$ YES! 

1733 033212 012737 010000 001442 MOV #FMT16,RMOFO SET FORMAT 16 

1734 033220 013737 001332 001416 MOV LSTRK,RMDAO sLAST TRACK, SECTOR = 0 

1735 033226 105237 001417 INCB RMDAO+1 : SETUP FIRST INVALID TRACK ADDRESS 

1736 033232 000137 032746 195$:  JMP 90$ [DO TEST FOR 16 BIT FORMAT 

1738 033236 2008: 

1739 

1740 LLU e eee eee eee eee AeA eee TRA KK AKA KAKA K AeA eee AeA eee 

s*TEST 54 SEEK INVALID CYLINDER 
TPORRBRBBAABAABBABAAAAAEBBABARBAERBAAASBESASLAAEAAERARERESEESER REESE RAR RASS 

033236 18154: 
033236 000004 SCOPE s;SCOPE CALL 
033240 000240 NOP sSTART OF TEST 
033242 012706 001100 MOV MSTACK,SP INITIALIZE STACK POINTER 
033246 013700 001276 MOV SBASE ,RO RO = UNIBUS ADDRESS 
033252 013701 001464 MOV TSTQUE ,R1 SCRI) = DEVICE BEING TESTED 

as 033256 012737 000054 001226 MOV #54, $TESIN >:SET TEST NUMBER IN APT MAIL BOX 

1742 0332646 004737 043150 JSR PC, TSTPRP :PREPARE DEVICE FOR TEST 
033270 054130 ~ WORD 054130 s TASK DESCRIPTOR AS FO 


LLOWS: 
[CLEAR CONTROLLER & SELECT DEVICE 
:VERIFY CONTROLLER CLEAR OPERATION 
: PACK ACKNOWLEDGE IF VOLUME NOT VALID 
;VERIFY PACK ACKNOWLEDGE 
:RECALIBRATE IF ‘'SKI"’ OR ‘'PIP'' IS SET 


G 12 
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SEEK INVALID CYLINDER SEQ 0149 
VERIFY RECALIBRATION 

033272 000404 BR 80$ 760 TO 80$ IF NO ERROR 
033274 000240 NOP RETURN HERE IF ERROR 
033276 104000 EMT sERROR # DEFINED BY TSTPRP SUBROUTINE 

033300 000137 033654 JMP 200% :G0 TO 200$ IF ERROR 

1743 033304 80$: 

1744 033304 012737 000005 001410 MOV #SEEK!GO,RMCS10 ;SEEK FUNCTION CODE 

1745 033312 012737 001467 001444 MOV #823.,RMDCO Te AT FIRST INVALID CYLINDER 

1746 033320 012737 000000 001416 MOV #0, RMDAO TRACK = ae SECTOR = 0 

1747 033326 012737 000000 001442 MOV #0..RMOFO °18 BIT FORMAT 

1748 033334 012702 001543 MOV #PUTINX,R2 R2 POINTS TO INDEX TABLE 

1749 033340 112722 000006 MOVB MRMDA, (R2)+ “WRITE REGISTER TABLE 

1750 033344 112722 000034 MOVB = #RMDC, (R2) + 

1751 033350 112722 000032 MOVB  #RMOF,(R2)¢4 

1752 033354 112722 000000 MOVB  #RMCS1,(R2)+ 

1753 033360 112722 000200 MOVB #200, (R2)+4 : TERMINATE TABLE 

1754 033364 004737 044070 JSR PC,GETSTS sSETUP FOR STATUS 

1755 033370 90$: 

1756 033370 004737 053530 JSR PC,CNTCLR 60 ISSUE CONTROLLER CLEAR 
033374 000404 BR 95$ 360 TO 95$ IF NO ERR _ 
033376 000240 NOP [RETURN HERE IF ERROR 
033400 104000 EMT ;ERROR NUMBER DEFINED BY SUBROUTINE 
033402 000137 033654 JMP 200$ +60 TO 200$ IF ERROR 

1757 033406 95$: 

1758 033406 004737 044154 JSR PC,GET ;GO READ ~ et i WITH GET SUBROUTINE 
033412 000404 BR 100% 360 TO 100$ IF NO ER ge 
033414 000240 NOP ‘RETURN HERE IF ERROR 
033416 104000 EMT * ERROR # DEFINED BY GET SUBROUTINE 
033420 000137 033654 JMP 200$ :60 TO 200$ IF ERROR 

1759 033424 100$: 

1760 033424 004737 053646 JSR PC,CLRSTS 360 + 4 ae thn CLEAR OPERATION 
033430 000405 BR 110$ :GO TO 110$ IF NO ERROR 
033432 000240 NOP RETURN HERE IF MERROR 
033434 104000 EMT * ERROR # DEFINED BY CLRSTS SUBROUTINE 
033436 004736 JSR PC,a(SP)+ ;GO BACK FOR MORE ERROR CHECKS 
033440 000137 033654 JMP 200$ :GO TO 200$ IF ERROR 

1761 033444 110$: 

1762 033444 004737 044424 JSR PC ,PUT 360 WRITE REGISTER(S) WITH PUT SUBROUTINE 
033450 000404 BR 120% 360 TO 120$ IF NO ERROR 
033452 000240 NOP *RETURN HERE IF ERROR 
033454 104000 EMT ;ERROR # DEFINED BY PUT SUBROUTINE 
033456 000137 033654 JMeP 2008 [GO TO 200$ IF ERROR 

1763 033462 120$: 

the 033462 004737 044766 JSR PC,TIMOUT ;WAIT FOR GO TO RESET 

1766 033466 004737 044154 JSR PC,GET +r ~ sg) ie +> GET SUBROUTINE 
033472 000404 BR 130$ 0 130$ IF N OER RROR 
033474 000240 NOP RETURN HERE IF ERR 
033476 104000 EMT “ERROR # DEFINED BY Ofer SUBROUTINE 
033500 000137 033654 JMP 200% :60 TO 200$ IF ERROR 

1767 033504 130$: 

1768 033504 004737 045152 JSR PC,PRIERR 7. CHECK FOR ree ERRORS 
033510 000405 BR 146$ 0 10 140$ IF N 0 ERR OR 
033512 000240 NOP RETURN HERE IF NERR OR 
033514 104000 EMT sERROR # DEFINED BY PRIERR SUBROUTINE 
033516 004736 JSR PC ,a(SP)+ +60 BACK FOR MORE ERROR CHECKS 
033520 000137 033654 MP 206$ 760 TO 200$ IF ERROR 
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SEEK INVALID CYLINDER SEQ 0150 
033524 140$: 
033524 004737 052270 JSR PC,SEKSTS 360 Hs 4 ota “ F aw OPERATION 
033530 000405 BR 156$ :G0 TO 150$ IF N ERR 
033532 000240 NOP <BeTURN HERE IF NERR 
033534 104000 EMT ;ERROR # DEFINED By OS eKSTS SUBROUT INE 
033536 004736 JSR PC,a(SP)+ 3;GO BACK FOR MORE — CHECKS 
033940 000137 033654 icon MP 206$ :G0 TO 200$ IF ERRO 
033544 004737 051644 JSR PC,CMPERRSTS ;CHECK ANY ERRORS NOT MASKED 
033550 117760 .~ WORD 1AE'NDTMSK ;MASK FOR RMER1I 
033552 000010 »WORD DPE ie FOR RMER2 
033554 000405 BR 170% 760 TO 170$ IF NO ERROR 
033556 000240 NOP RETURN HERE IF ERROR 
033560 104000 EMT ;ERROR # DEFINED BY CMPERRSTS SUBROUTINE 
033562 004736 JSR PC,a(SP)+ 60 BACK FOR MORE ERROR CHECKS 
033564 000137 033654 eat MP 200$ :G0 TO 200$ IF ERROR 
"593570 004737 046004 JSR PC,SECERR 360 a FOR SECONDARY ERRORS 
033574 000405 BR 180$ 360 TO 180$ IF NO ER ~ ag: 
033576 000240 NOP RETURN HERE IF ERROR 
033600 104000 EMT ;ERROR # DEFINED BY SECERR SUBROUTINE 
033602 004736 JSR PC,a(SP)+ 60 BACK FOR MORE ERROR CHECKS 
035604 000137 033654 cas JMP 200$ :G0 TO 200$ IF ERROR 
033610 005237 001444 INC RMDCO ; INCREMENT CYLINDER ADDRESS 
033614 023727 001444 002000 CMP RMDCO, #1024. NE? 
033622 002412 BLT 195$ “NO- DO ‘ant CYLINDER 
033624 032737 010000 001442 BIT #FMT16,RMOFO :16 BIT FORMAT TESTED?? 
033632 001010 BNE 2008 YES 
033634 012737 010000 001442 MOV #FMT16,RMOFO SETUP’ FOR 16 BIT TES 
033642 012737 001467 001444 MOV #823.,RMDCO sSTART AT FIRST itevia 1 CYLINDER 
4 033650 000137 033370 195$:  yMP 90$ 
: 033654 2008: 
hhh eee PPP POPPE PPP PRS S ESE OSEC EO OSLOCLOSSOSE SY 
SATEST 55 IvC SEEK TEST 
° CREATE AAA eee eee eee eee eee 
033654 1S155: 
033654 000004 SCOPE ;SCOPE CALL 
033656 000240 NOP sSTART OF TEST 
033660 012706 001100 MOV ASTACK,SP s INITIALIZE STACK POINTER 
033664 013700 001276 MOV $BASE,RO ‘RO = UNIBUS ADDRESS 
033670 015701 001464 MOV TSTQUE,R1 s(R1) DEVICE BEING TESTED 
033674 012737 000055 001226 MOV #55, S$TESTN SET TEST NUMBER IN APT MAIL BOX 
033702 004737 053530 JSR PC,CNTCLR 60 ISSUE CONTROLLER CLEAR 
033706 000404 BR 10$ :GO0 TO 10$ IF NO ERROR 
033710 000240 NOP SRETURN HERE IF ERROR 
033712 104000 EMT ;ERROR NUMBER DEFINED BY SUBROUTINE 
033714 000137 034214 al JMP 90$ 760 TO 90$ IF ERROR 
033720 112737 000024 001543 MOVB &#RMMRI,PUTINX  ;SETUP PUT INDEX TABLE 
033726 112737 000200 001544 MOVB #200,PUTINX+1 ;SET TERMINATOR BYTE 
033734 012737 000001 001434 MOV #DMD,RMMR10 ;SET RMMR1 OUTPUT BUFFER = DMD 
033742 004737 064424 JSR PC,PUT 3;GO WRITE RMMR1 VIA PUT SUBROUTINE 
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004737 


000404 
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104000 
000137 


004737 


104064 
004737 
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034214 
000005 


044424 


034214 


044154 


034214 
045152 


051644 


034214 
046004 
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001376 


001140 
001142 
001142 


30$: 


40$: 


50$: 


60$: 


80$: 


90$: 


20% :G0 TO 20$ IF NO ERROR 
RETURN HERE IF ERROR 
sERROR DEFINED BY PUT SUBROUTINE 
90% 360 TO 90$ IF ERROR 
MSEEK!GO,RMCS10 
#0,RMMR10 
#0,RMDCO CYLINDER = 0 
#0,RMDAO ;TRACK = 0, SECTOR = 
#PUTINK,R2 sWRITE REGISTER INDEX 


#RMMR1, (R2)4 ; TABLE 
#RMDA, (R2)+ 
WRMDC,(R2)+ 


#RMCS1,(R2)4 
#200, (R2)+ 
PC,GETSTS sSETUP FOR STATUS 
PC PUT :60 WRITE REGISTER(S) WITH PUT SUBROUTINE 
308 0 30$ IF NO ER RROR 
‘RETURN HERE IF ERROR 
ZERROR # DEFINED BY PUT SUBROUTINE 
90$ :G0 TO 90$ IF ERROR 
PC GET 60 READ REGISTER(S) WITH GET SUBROUTINE 
40$ [G0 TO 40$ IF NO ERROR 
[RETURN HERE IF ERROR 
TERROR # DEFINED BY GET SUBROUTINE 
90$ :60 TO 90$ IF ERROR 
PC, PRIERR :GO CHECK FOR PRIMARY ERRORS 
50$ :G60 TO 50$ IF NO ERROR 
[RETURN HERE IF ERROR 
TERROR # DEFINED BY PRIERR SUBROUTINE 
PC,a(SP)+ :60 BACK FOR MORE ERROR CHECKS 
90$ 0 90$ IF ERROR 


#1VC,RMER21 ‘DID. INVALID COMMAND SET?? 
60% svES! 


#IVC,$GDDAT =GOOD DATA FOR TYPEOUT 
RMER21,$BDDAT :8AD DATA FOR TYPEOUT 
wCIV, ‘$BDDAT 


PC,CMPERRSTS ;CHECK ANY ERRORS NOT MASKED 
NDTMSK :MASK FOR RMER1 
1VC!DPE :MASK FOR RMER2 
80% :G0 TO 80$ IF NO ERROR 
RETURN HERE IF ERROR 
sERROR # DEFINED BY CMPERRSTS SUBROUTINE 
PC,a(SP)+ ;G0 BACK FOR MORE ERROR CHECKS 
90% :G0 TO 90$ IF ERROR 
PC,SECERR :GO CHECK FOR SECONDARY ERRORS 
90% :GO0 TO 90$ IF NO ERROR 
;RETURN HERE IF ERROR 
ERROR # DEFINED BY SECERR SUBROUTINE 
PC,a(SP)+ ;GO BACK FOR MORE ERROR CHECKS 


SEQ 0151 


os RMO5/3/2 FCTNL TST 1 
156 ABORT SEEK TEST 


1822 


WWW tert 
NOWUESWN —OVOOnNG 


oo 
WWW 
oP or 
WWW 
wns 
Neo 


oo 

yy 

Ww 
uw 
o 


60 
1838 034364 
1839 ky 24 


0343 
03437 
034374 
034376 
1840 034402 
1841 03441 
1842 034412 
1843 034420 
1844 034426 
1845 034432 
1846 034434 
1847 
1848 034440 
034444 


on-nror—"-" OOCCO 


Son tk ts os 2 et 
Por rononononononrorw 


000240 


64 
000056 
043150 


034556 
040000 


044424 


034556 
044154 


034556 
020000 


001346 
157777 
001140 
044766 


044154 
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001226 


001424 


001410 


001346 


001142 
001142 


,eeeeeeeeeeeeeeeteeeeeeeeteeeeeeeeeeeeeeeeeAteeteterneeeeeeneeeee 


SATEST 56 


,eeekeaeeekeeaeeeeeeeeeerekeeereReekeeeeeeeeeeeeeeeeeeReeeeeenese 


18156: 


80$: 


90$: 


100$: 


1108: 


ABORT SEEK TEST 


;SCOPE CALL 
START OF TEST 


MSTACK SP INITIALIZE STACK POINTER 

SBASE ,RO RO = UNIBUS ADDRESS 

TSTQUE ,R1 F(R) = DEVICE BEING TESTED 
#56,$TESTN ;;SET TEST NUMBER IN APT MAIL BOX 
PC, TSTPRP ;PREPARE DEVICE FOR TEST 


054130 TASK DESCRIPTOR AS FOLLOWS: 
CLEAR CONTROLLER & SELECT DEVICE 
VERIFY CONTROLLER CLEAR OPERATION 
sPACK ACKNOWLEDGE IF VOLUME NOT VALID 
VERIFY PACK ACKNOWLEDGE 
sRECALIBRATE IF ‘'SKI"' OR ‘'PIP’’ 
VERIFY RECALIBRATION 

80% :G0 TO 80$ IF NO ae 
RETURN HERE IF ERRO 
sERROR # DEFINED BY 1 STPRP SUBROUTINE 


IS SET 


160$ [G0 TO 160$ IF ERROR 
MUNS ,RMERIO SET UNSAFE ERROR 
#0,RMDCO ZCYLINDER = 0 


#0, RMDAO TRACK = Re SECTOR = 0 
WSEEK GO, RMCS10 ;SEEK COMMAND 

PUTINX ,R2 :SETUP REGISTER INDEX TABLE 
ARMDAY (R2)¢ AND OUTPUT BUFFER 
#RMDC, (R2)+ 


WRMERT, (R2)4 
WRMCS1,(R2)+ 
#200,(R2)+ 
PC,GETSTS SETUP FOR STATUS FETCH 
PC,PUT :GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
90$ :GO0 TO 90$ IF NO ERROR 
;RETURN HERE IF ERROR 
ERROR # DEFINED BY PUT SUBROUTINE 
160% G0 TO 160$ IF ERROR 
PC,GET :60 es oa lr co ta WITH GET SUBROUTINE 
100% :G0 TO 100$ IF NO ERROR 
;RETURN HERE IF ERROR 
ERROR # DEFINED B A SUBROUTINE 
160$ :G0 TO 1608 IF E 
—o at DRIVE START" SEEK? 
RMDS1 ,SBDDAT :BAD DATA FOR TYPEOUT 
#*CPIP,$BDDAT 
_— ;GOOD DATA FOR TYPEOUT 
PC,TIMOUT WAIT FOR GO TO RESET 
PC,GET 


:GO0 READ REGISTER(S) WITH GET SUBROUTINE 
126$ :GO TO 120$ IF NO ERROR 
SRETURN HERE IF ERROR 


SEQ 0152 
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034450 
Q 


0 
034604 


0 
034612 
2 


034612 
034616 


034620 
034622 
034624 


104000 
000137 


004737 


000137 
004737 


000137 
004737 


000137 
004737 


000404 
000240 
104000 


034556 
045152 


034556 
061232 


034556 
051644 


034556 
046004 


001100 


4 
000001 
000057 


043150 
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sERROR # DEFINED BY GET SUBROUTINE 
760 TO 160$ IF ERROR 

:G0 CHECK FOR PRIMARY ERRORS 

3G0_ TO 130$ IF NO ERROR 

;RETURN HERE IF R 

ERROR # DEFINED BY PRIERR SUBROUTINE 
;GO BACK FOR MORE Me CHECKS 

:G0 TO 160$ IF ERR 


CHECK FOR yy - DRIVE STATUS 
‘G0 TO 140$ IF NO ERR 
RETURN HERE IF ERROR. 
sERROR # DEFINED BY STCDRVSTS SUBROUTINE 
:GO BACK FOR MORE ERROR CHECKS 
60 TO 160$ IF ERROR 


CHECK ANY tan NOT MASKED 
;MASK FOR RMER1 

i? FOR RMER2 

O 150$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR # DEFINED BY etgron HF SUBROUTINE 
:GO BACK FOR MORE ERROR CHECK 
:G0 TO 160$ IF ERROR 


+60 CHECK FOR yr ERRORS 


: ERROR 
sERROR # DEFINED BY SECERR SUBROUTINE 
:GO BACK FOR MORE ERROR CHECKS 


Peek eekeeeeeeeee eee eee eee eek kAKeKeeeKKeKKKKkkKeKkeeketeeeeeee 


'MALBABSAALAASZAAAASLASLASALARSAASLASASESESESES EERE SERRA SESE SER ERR ESAS ES 


EMT 
JMP 160$ 
1208: 
JSR PC. PRIERR 
BR 136$ 
NOP 
EMT 
JSR PC,a(SP)+ 
yMP 166$ 
130$: 
JSR PC, STCDRVSTS 
BR 1468 
NOP 
EMT 
JSR PC,a(SP)+ 
MP 160$ 
1408: 
JSR PC, CMPERRSTS 
.WORD  NDTMSK'UNS 
“WORD DPE 
BR 150$ 
NOP 
EMT 
JSR PC,a(SP)+ 
JMP 160$ 
150$: 
JSR PC,SECERR 
BR 160$ 
NOP 
EMT 
JSR PC,a(SP)+ 
160$: 
SATEST 57 SEEK AT OFFSET 
18157: 
SCOPE 
NOP 
MOV #STACK,SP 
MOV $BASE ,RO 
MOV TSTQUE ,R1 
001206 MOV #1, $TIMES 
001226 MOV #57, $TESIN 
10$: 
JSR PC, TSTPRP 
WORD 054130 


BR 20% 


SCOPE CALL 
:START OF TEST 
INITIALIZE STACK POINTER 
:RO = UNIBUS ADDRESS 
3(R1) = retatt "a TESTED 
:;D0 1 ITERATION 
7;SET TEST NUMBER IN APT MAIL BOX 


;PREPARE DEVICE /FOR TEST 
; TASK DESCRIPTOR AS FOLLOWS: 
CLEAR CONTROLLER & SELECT DEVICE 
VERIFY CONTROLLER CLEAR OPERATION 
;PACK ACKNOWLEDGE IF VOLUME NOT VALID 
VERIFY PACK ACKNOWLEDGE 
aegis BRATE IF ‘’SK1"' OR ‘“'PIP’’ IS SET 
;VERIFY RECALIBRATION 
;GO0 TO 20$ IF NO iy 
;RETURN HERE IF ERR 
ERROR # DEFINED BY OT STPRE SUBROUT INE 


SEQ 0153 
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157 SEEK AT OFFSET SEQ 0154 

034626 000137 035110 JMP 1408 760 TO 140$ IF ERROR 

1863 034632 208: 

1864 034632 012737 000000 001444 MOV #0,RMDCO :CYLINDER = 0 

1865 034640 012737 000000 001416 MOV #0, RMDAO ‘TRACK = 0, SECTOR = 0 

1866 034646 012737 000015 001410 MOV #OFFSET!GO,RMCS10 OAD OFFSET COMMAND IN BUFFER 

1867 034654 012702 001543 MOV #PUTINX,R2 =R2 PoINts TO REGISTER TABLE 

1868 034660 112722 000034 MOVB  #RMDC,(R2)+4 [WRITE REGISTER INDEX TABLE 

1869 034664 112722 000006 MOVB #RMDA, (R2)+ 

1870 034670 112722 000000 MOVB  #RMCS1,(R2)¢ 

1871 034674 112722 000200 MOVB #200, (R2)+4 ;WRITE TERMINATOR 

1872 034700 004737 044424 JSR :60 WRITE REGISTER(S) WITH PUT SUBROUTINE 
034704 000404 BR 30$ 0 30$ IF NO ERROR 
034706 000240 NOP RETURN HERE IF ERROR 
034710 104000 EMT ; ERROR “ DEF INED ae PUT SUBROUTINE 
034712 000137 035110 JMP 140$ 760 TO 140$ | RROR 

1873 034716 004737 044070 30$: JSR PC,GETSTS Serue FOR status FETCH 

He ose eSe 004737 044766 408 JSR PC,TIMOUT ;WAIT FOR OFFSET TO COMPLETE 

1876 034726 012737 000005 001410 MOV #SEEK'GO,RMCS10 ;LOAD SEEK COMMAND 

1877 034734 112737 000000 001543 MOVB  #RMCSI,PUTINX LOAD REGISTER INDEX TABLE 

1878 034742 112737 000200 001544 MOVB #200,PUTINX+1 

1879 034750 004737 044424 JSR PC,PUT 3G0 WRITE ai gy tt WITH PUT SUBROUTINE 
034754 000404 BR 50$ 360 TO 50$ IF NO ER ~~ 
034756 000240 NOP RETURN HERE IF ERROR 
034760 104000 EMT sERROR # DEFINED BY PUT SUBROUTINE 
034762 000137 035110 JMP 140$ :G0 TO 140$ IF ERROR 

1880 034766 50$: 

2 ;WAIT FOR COMMAND TO COMPLETE 

1883 034766 004737 044766 JSR PC,TIMOUT 360 TO TIMOUT SUBROUTINE 

1884 034772 004737 044154 JSR PC,GET br ws ae tr tan Ea WITH GET SUBROUTINE 
034776 000404 BR 100$ 0 100$ IF NO ERROR 
035000 000240 NOP > Mie HERE IF ERROR 
035002 104000 EMT ;ERROR # DEFINED BY GET SUBROUTINE 
035004 000137 0351190 JMP 140$ 60 TO 1408 IF ERROR 

1885 035010 100$: 

1886 035010 004737 045152 JSR PC,PRIERR 3G0 CHECK FOR PRIMARY ee 
035014 000405 BR 110$ :G0 TO 110$ IF NO ERROR 
035016 000240 NOP [RETURN HERE IF ERROR 
035020 104000 EMT ;ERROR # DEFINED BY ye SUBROUT INE 
035022 004736 JSR PC,a(SP)+ ;GO BACK FOR MORE ERROR CHECKS 
035024 000137 035110 JMP 140$ :G0 TO 140$ IF ERROR 

1887 035030 110$: 

1888 035030 004737 052270 JSR PC, SEKSTS 7GO VERIFY RESULTS OF SEEK OPERATION 
035034 000405 BR 1208 :G0 TO 1208 IF NO ER ROR 
035036 000240 NOP [RETURN HERE IF ERROR 
035040 104000 EMT sERROR # DEFINED BY SEKSTS SUBROUTINE 
035042 004736 : JSR PC,a(SP)+ 60 BACK FOR MORE ERROR CHECKS 
035044 000137 °035110 JMP 146$ :GO0 TO 140$ IF ERROR 

1889 035050 120$: 

1890 035050 004737 051644 JSR PC,CMPERRSTS : CHECK ANY A rs NOT MASKED 
035054 115760 ~ WORD NDTMSK ;MASK FOR RMERI 
035056 000010 “WORD DPE >MASK FOR RMER2 
035060 000405 BR 130$ 760 10 130% IF NO ERROR 
035062 000240 NOP RETURN HERE IF ERR 
035064 104000 EMT sERROR # DEFINED BY OE NPERASTS SUBROUTINE 
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001226 


001442 


001410 


130$: 


1408: 


PC .a(SP)+ 
4 


1468 


PC, SECERR 
4 


1468 


PC,a(SP)¢ 


:GO BACK FOR MORE ERROR CHECKS 
:G0 TO 1408 IF ERROR 


:G0 CHECK FOR SECONDARY ERRORS 
360 TO 140$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY SECERR SUBROUTINE 
;GO BACK FOR MORE ERROR CHECKS 


s eee eaeeeeeeeeeeeeeeeeeereeeteeeeeneeKeeeeeeeaeeteteeeeeeeeeeres 


T*TEST 60 


SRA RAHEHRAHETTETHAEAE REE RAHAAAAARARHAHeeeeReeeeeeteneteeeeese 


1§160: 


10$: 


208: 


30$: 


40$: 


LOOK AHEAD TEST 


SCOPE CALL 
:START OF TEST 


#STACK,SP SINITIALIZE STACK POINTER 
S$BASE RO :RO = UNIBUS ADDRESS 
TSTQUE,R1 :(R1) = DEVICE BEING TESTED 
#60, $TESTN :;SET TEST NUMBER IN APT MAIL BOX 
PC, CNTCLR :G0 ISSUE CONTROLLER CLEAR 
10 760 TO 10$ IF NO ERROR 

[RETURN HERE IF ERROR 

TERROR NUMBER DEFINED BY SUBROUTINE 
1608 [G0 TO 160$ IF ERROR 

31. ,R3 :R3 = SAMPLE COUNT FOR 18 BIT MODE 

#0,,RMOFO [START WITH 18 BIT MODE 
#0.RMDCO [CYLINDER = 0 
#0.RMDAO ‘SEARCH TRACK = 0, SECTOR = 0 
#SEARCH!GO,RMCS10 :RECALIBRATE COMMAND 
#PUTINX,R2 
#RMDA, (R2)4 
#RMDC, (R2)+ 
#RMOF . (R2)+ 
#RMCS1, (R2)+ 
#200, (R2)¢ 
PC ,GETSTS 
PC PUT :GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
308 :GO TO 30$ IF NO ERROR 

SRETURN HERE IF ERROR 

[ERROR # DEFINED BY PUT SUBROUTINE 
150$ :60 TO 150$ IF ERROR 
PC, TIMOUT ‘WAIT FOR COMPLETION 
PC,GET :GO READ REGISTER(S) WITH GET SUBROUTINE 
408 760 TO 40$ IF NO ERROR 

[RETURN HERE IF ERROR 

TERROR # DEFINED BY GET SUBROUTINE 
150% +60 TO 150$ IF ERROR 
PC ,PRIERR :GO CHECK FOR PRIMARY ERRORS 
50$ -GO TO 50$ IF NO ERROR 


“RETURN HERE IF ERROR 
TERROR # DEFINED BY PRIERR SUBROUTINE 


SEQ 0155 
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035526 
103640 


000020 


000002 


000020 


035536 
003500 


0 
010000 


003700 
000040 


000100 


010000 
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000041 


000006 
000004 
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001442 


001442 
001442 


130$: 


1408: 


150$: 


160$: 


18 


PC a(SP)+ 
156$ 


#BUFFER,R4 

#-1,R5 

RMLA(RO), (R4) 
);R2 


RMLA(RO) 
(R4) 


wn PARAMETERS 
#3500,R2 


#30. e 
#BUFFER 

#EMT 16,R RMOFO 
1208 


. PARAMETERS 
#3700,R2 


’ 


132. 
step rh 


i 


R (R4) 
146$ 


4 
R5,$GDDAT 
(R4) , SBDDAT 


MT16,RMOFO 
3. .R3 


Vvaae-— 
own 


(SP)+,ERRVEC#2 
(SP)+ ERRVEC 


GO BACK FOR MORE ERROR CHECKS 
60 TO 150$ IF ERROR 


7R4 = aece TI ADDRESS 
ROSS TIMER 


3R 

: STORE RMLA SAMPLE 
:GET ANOTHER LOOK 
:ARE SAMPLES SAME?? 


; TIMEQUT?? 


:NO - 


TRY A 


AGAIN 
PROGRAM TIMEOUT 
z;ADVANCE STORAGE ADDRESS 


mt. SAMPLES TAKEN?? 


:WAIT 
;YES! 


° 
ime 

awn 

wiih tt 

a] 


FOR CHANGE 


:TIMEQUT?? 
0 


MAXIMUM SAMP 


LE 
NUMBER OF COMPARES 
BUFFER ADDRESS 
ti FOR 18 BIT MODE ? 


MAXIMUM SAMPLE 


NUMBER OF COMPARES 
GET A SAMPLE AND INCREMENT 
:FOR EXPECTED VALUE OF NEXT 


;SHOULD NEXT BE 0 ? 
*NO! ! 


NO!! 
YES = CHANGE EXPECTED 
4 i i SAMPLE CORRECT?? 


TEXPECTED VALUE 
sRECEIVED VALUE 


ALL SAMPLES CHECKED?? 
;NO - TEST NEXT SAMPLE 


Bi Rey | FOR 16 BIT MODE ? 
SET 16 BIT MODE AND 


:SET SAMPLE COUNT. 


TEST 


AGAIN 


POP STACK tg ERRVEC #2 
;POP STACK INTO ERRVEC 


SEQ 0156 


-CZR 
60 


B 13 
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LOOK AHEAD TEST 
1971 
1972 ,eeereerererrererererererrereraneeeaeeteeteneneeesTeeetereteetee 
jeTEST 61 SEARCH ON CYLINDER 
,eeeereerereneereeeeereerereereneaearataneeraneneereneteneteTene 
035536 1161: 
035536 000004 SCOPE :SCOPE CALL 
035540 000240 NOP [START OF TEST 
035542 012706 001100 MOV #STACK,SP i INITIALIZE STACK POINTER 
035546 013700 001276 MOV S$BASE ,RO = UNIBUS ADDRESS 
035552 013701 001464 MOV TSTQUE ,R1 etRI) = DEVICE BEING TESTED 
"ve 035556 012737 000061 001226 MOV #61, $TESTN :;SET TEST NUMBER IN APT MAIL BOX 
1974, 035564 004737 043150 JSR PC, TSTPRP : PREPARE DEVICE FOR TEST 
035570 054130 “WORD 054130 “TASK DESCRIPTOR AS FOLLOWS: 
“CLEAR CONTROLLER & SELECT DEVICE 
[VERIFY CONTROLLER CLEAR OPERATION 
*PACK ACKNOWLEDGE IF VOLUME NOT VALID 
‘VERIFY PACK ACKNOWLEDGE 
SRECALIBRATE IF ''SKI'' OR "'PIP'' 1S SET 
VERIFY RECALIBPAT ION 
035572 000404 BR 80$ :G0 TO 80$ IF NO ERR ROR 
035574 000240 NOP RETURN HERE IF ERR 
035576 104000 EMT sERROR # DEFINED BY OF STPRP SUBROUT INE 
035600 000137 036214 JMP 2008 :60 TO 200$ IF ERROR 
1975 035604 80$: 
1976 035604 012703 000035 MOV #29.,R3 :R3 = MAXIMUM SECTOR ADDRESS 
1977 035610 012737 000000 001444 MOV #0,RMDCO [CYLINDER = 0 
1978 035616 012737 000000 001416 MOV #0.RMDAO “TRACK = 0, SECTOR = 0 
1979 035624 012737 000000 001442 MOV #0. RMOFO 18 BIT 
1980 035632 012737 000005 001410 85$: MOV #SEEK!GO,RMCS10 :SEEK COMMAND 
1981 035640 012702 001543 MOV #PUTINX,R2 :SETUP REGISTER INDEX TABLE 
1982 035644 112722 000006 MOVB = ARMDA, (R2) + “FOR SEEK TO CYLINDER 0 
1983 035650 112722 000034 MOVB  #RMDC.(R2)+4 
1984 035654 112722 000032 MOVB  #RMOF.(R2)+ 
1985 035660 112722 000000 MOVB  #RMCS1,(R2)+ 
1986 035664 112722 000200 MOVB #200, (R2)¢4 
1987 035670 004737 044070 JSR PC,GETSTS :SETUP FOR STATUS FETCH 
1988 035674 004737 044424 JSR PC, PUT 760 WRITE REGISTER(S) WITH PUT SUBROUTINE 
035700 000404 BR 90$ :60 TO 90$ IF 10, ER ROR 
035702 000240 NOP :RETURN | HERE | 
035704 104000 EMT ‘ERROR # SEF INED” BY OPuT SUBROUT INE 
035706 000137 036214 JMP 2008 :60 TO 200$ IF ERRO 
1989 035712 004737 044766 90$: JSR PC, TIMOUT 
1991 035716 004737 044154 JSR PC,GET :GO READ REGISTER(S) WITH GET SUBROUTINE 
035722 000404 BR 106$ *60 TO 100$ IF N ERROR 
035724 000240 NOP RETURN | HERE IF ERR 
035726 104000 EMT “ERROR # DEFINED BY “cel SUBROUT INE 
035730 000137 036214 JMP 2008 :GO TO 2008 IF E 
1992 035734 100$: 
1993 035734 004737 045152 JSR PC, PRIERR 60 CHECK FOR PRIMARY ERRORS 
035740 000405 BR 116$ [G60 TO 110$ IF NO ERROR 
035742 000240 NOP SOE TURN HERE. iF NERROR 
035744 104000 EMT ‘ERROR # DEFINED BY PRIERR SUBROUTINE 
035746 004736 JSR PC, a(SP)+ *GO BACK FOR MORE ERROR CHECKS 
035750 000137 036214 JMP 200$ :G6O0 TO 2008 IF ERROR 
1994 035754 110$: 


SEQ 0157 


C 13 
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SEARCH ON CYLINDER SEQ 0158 

1995 035754 004737 052270 JSR PC SEKSTS :60 VERIFY RESULTS OF ogee OPERATION 
035760 000405 BR 126$ 120$ IF NO ERR 
035762 000240 NOP RETURN HERE IF ERR 
035764 104000 EMT TERROR # DEFINED BY OSEKSTS SUBROUT INE 
035766 004736 JSR PC, a(SP)+ [G60 BACK FOR MORE ERROR CHECKS 
035770 000137 036214 JMP 206$ :GO TO 200$ IF ERROR 

1996 035774 012737 000031 001410 120%: Mov SEARCH! GO, RMCS10 “STORE SEARCH 

1997 036002 004737 044424 JSR PC 760 RITE REGISTER(S) WITH PUT SUBROUTINE 
036006 000404 BR 13 S65” :G0 TO 130$ IF NO ERR 
036010 000240 NOP RETURN HERE IF ERROR 
036012 104000 EMT TERROR # DEFINED BY PUT SUBROUTINE 
036014 000137 036214 JMP 2008 *60 TO 5008 IF ERROR 

1998 036020 130$: 

hes 036020 004737 044766 JSR PC, TIMOUT sWAIT FOR SEARCH TO COMPLETE 

2001 036024 004737 044154 JSR PC,GET 3GO READ REGISTER(S) WITH GET SUBROUTINE 
036030 000404 BR 146$ :GO0 TO 140$ IF NO ERROR 
036032 000240 NOP [RETURN HERE IF ERROR 
036034 104000 EMT TERROR # DEFINED BY GET SUBROUTINE 
036036 000137 036214 JMP 2008 'GO TO 200$ IF ERROR 

2002 036042 1408: 

2003 036042 004737 045152 JSR PC,PRIERR :GO CHECK FOR PRIMARY a 
036046 000405 BR 150$ :G60 TO 150$ IF NO ERRO 
036050 000240 NOP [RETURN HERE IF ERROR 
036052 104000 EMT ;ERROR # DEFINED BY PRIERR SUBROUTINE 
036054 004736 JSR PC,a(SP)+ 3;GO BACK FOR MORE ERROR CHECKS 
036056 000137 036214 MP 200$ :G0 TO 200$ IF ERROR 

2004 03606¢ 150$: 

2005 03606 004737 057666 JSR PC,SCHSTS 3G0 VERIFY SEARCH OPERATION 
036066 000405 BR 160$ :G0 TO 160% IF NO ERROR 
036070 000240 NOP [RETURN HERE IF ERROR 
036072 104000 EMT [ERROR # DEFINED BY SCHSTS SUBROUTINE 
036074 004736 JSR PC,a(SP)+ 3;GO BACK FOR MORE ERROR CHECKS 
036076 000137 036214 JMP 200$ :G0 TO 200$ IF ERROR 

2006 036102 1608: 

2007 036102 004737 051644 JSR PC,CMPERRSTS : CHECK ANY scat” NOT MASKED 
036106 115760 ~ WORD NDTMSK ;MASK FOR RMER1 
036110 000010 “WORD DPE “MASK FOR RMER2 
036112 000405 BR 1708 [G0 TO 170$ IF NO ERROR 
036114 000240 NOP [RETURN HERE IF ERROR 
036116 104000 EMT sERROR # DEFINED BY CMPERRSTS SUBROUTINE 
036120 004736 JSR PC,a(SP)+ 3GO BACK FOR MORE ERROR CHECKS 
036122 000137 036214 MP 200$ :GO TO 200$ IF ERROR 

2008 036126 170$: 

2009 036126 004737 046004 JSR PC,SECERR - :G0 CHECK FOR SECONDARY ERRORS 
036132 000405 BR 180$ :GO TO 180$ IF NO ERR 
036134 000240 NOP *RETURN HERE IF ER ROR 
036136 104000 EMT sERROR # DEFINED BY SECERR SUBROUTINE 
036140 004736 JSR PC,a(SP)+ 60 BACK FOR MORE ERROR CHECKS 
036142 000137 036214 JMP 200$ :G0 TO 200$ IF ERROR 

2010 036146 180$: 

2011 036146 005237 001416 INC RMDAO s INCREMENT SECTOR ADDRESS 

2012 036152 020337 001416 CMP R3,RMDAO ;DONE ALL SECTORS?? 

2013 036156 103306 BHIS 1208 NO! ! 

2015 036160 032737 010000 001442 BIT #FMT16,RMOFO 1S 16 BIT FORMAT DONE?? 

2016 036166 012737 010000 001442 MOV #FAT16,RMOFO :SET 16 BIT FORMAT 
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161 SEARCH ON CYLINDER SEQ 0159 
2017 036174 001007 BNE 2008 ;BR IF YES 
2018 036176 012703 000037 MOV #31. ,R3 :R3 = MAXIMUM SECTOR ADDRESS 
2019 036202 012737 000000 001416 MOV #0,RMDAO “START AT TRACK = 0, SECTOR = 0 
2020 036210 000137 035632 JMP 85¢ :G0 TEST AGAIN 
2021 036214 2008: 
2022 
2023 FRR RAAHAAAHH EEE EKATEAT Eee Kee eee KKK eeeHAAeeeetAKeteeeeereres 
TeTEST 62 SEARCH OFF CYLINDER 
*; (PBR RBRBRBAAASAALESZASESAESESERERAESE SERRE EASEEESLESE SESE RAESESSSSASASS SO 
036214 1S162: 
036214 000004 SCOPE :SCOPE CALL 
036216 000240 NOP sSTART OF TEST 
036220 012706 001100 MOV MSTACK,SP INITIALIZE STACK POINTER 
036224 013700 001276 MOV SBASE ,RO :RO = UNIBUS ADDRESS 
036230 013701 001464 MOV TSTQUE ,R1 7(R1) = DEVICE BEING TESTED 
2024 036234 012737 000062 001226 MOV #62,$TESTN SET TEST NUMBER IN APT MAIL BOX 
2025 036242 004737 043150 JSR PC, TSTPRP ;PREPARE DEVICE FOR TEST 
036246 054130 ~ WORD 054130 ; TASK DESCRIPTOR AS FOLLOWS: 
[CLEAR CONTROLILER & SELECT DEVICE 
;VERIFY CONTROLLER CLEAR OPERATION 
:PACK ACKNOWLEDGE IF VOLUME NOT VALID 
sVERIFY PACK ACKNOWLEDGE 
SRECALIBRATE IF ‘SKI’ OR ‘PIP’ 1S SET 
+s Ny RECALIBRATION 
036250 000404 BR 80$ 360 TO 80$ IF NO ae 
036252 000240 NOP ZRETURN HERE IF ERROR 
036254 104000 EMT sERROR # BS ine aiie TSTPRP SUBROUTINE 
036256 000137 036720 JMP 2308 :60 TO 230$ IF 
2026 036262 80S: 
2027 036262 012737 000000 001416 MOV #0,RMDAO 
2028 036270 012737 000000 001442 MOV #0. RMOFO ;START WITH 18 BIT MODE 
029 036276 012704 000035 MOV fl 9. R4 R4& = MAXIMUM SECTOR ADDRESS 
2030 036302 012703 000632 MOV #410.,R3 :R3 = SEARCH CYLINDER 
31 036 012705 000633 MOV #411..R5 R5 = SEEK CYLINDER 
2032 036312 012737 000005 001410 90$: MOV #SEEK!GO,RMCS10 *LOAD SEEK COMMAND 
2033 036320 010537 001444 MOV RS, RMDCO SLOAD CYLINDER ADDRESS 
036324 012702 001543 MOV #PUTINX,R2 =R2 POINTS TO REGISTER TABLE 
2035 036330 112722 000032 MOVB #RMOF , (R2)+ s;SETUP REGISTER INDEX TABLE 
2036 0363 112722 000034 MOVB MRMDC, (R2)+ ‘FOR SEEK COMMAND 
2037 036340 112722 000006 MOVB  #RMDA.(R2)+ 
2038 036344 112722 000000 MOVB  #RMCS1,(R2)+ 
2039 036350 112722 000200 MOVB #200,(R2)+ : TERMINATE TABLE 
2040 036354 004737 044070 JSR PC, GETSTS ;SETUP FOR STATUS 
2041 036360 004737 044424 JSR PC,PUT :60 WRITE ogg gi a? PUT SUBROUTINE 
036364 000404 BR 106$ :G0 TO 100$ IF NO ERR 
036366 000240 NOP RETURN | HERE IF ERRORS 
036370 104000 EMT sERROR # DEFINED 4 Be SUBROUTINE 
036372 000137 036720 JMP 2308 :G0 TO 230$ IF ERRO 
2042 036376 100$: 
2043 036376 004737 044766 JSR PC, TIMOUT ;WAIT FOR SEEK TO COMPLETE 
2045 036402 004737 044154 JSR PC ,GET :GO READ REGISTER(S) = GET SUBROUTINE 
036406 000404 BR 116$ 760 TO 110$ IF NO ERR 
036410 000240 NOP TRETURN HERE IF ERR OR. 
036412 104000 EMT TERROR # DEFINED BY GET SUBROUTINE 


036414 000137 036720 JMP 2308 G0 TO 230% IF ERROR 


ate yeh FCTNL TST 1 
T62 OFF CYLINDER 


0 
2064 
2065 

0 


RCH 
036420 


36510 
036510 
036514 
0 


036624 


SEL 
0 


000137 
004737 


000137 
010337 


000137 
004737 
004737 


000137 
004737 


000137 
004737 


000137 
004737 


000137 


004737 
000405 
000240 


045152 


036720 
052270 


036720 
061444 


000031 
044424 


036720 
044766 
044154 


036720 
045152 


036720 
057666 


036720 
051644 


036720 
046004 
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001410 


110$: 


120$: 


130$: 


1408: 


150$: 


1608: 


170$: 


180$: 


PC,PRIERR 


126$ 
PC ,a(SP)+ 
236$ 
PC,SEKSTS 
136$ 
PC,a(SP)+ 
236$ 


R3 


1408 


230% 
PC,TIMOUT 
PC,GET 
150$ 
230% 


PC ,PRIERR 
1608 


PC,a(SP)+ 


230$ 


PC,SCHSTS 
170% 


PC,a(SP)+ 


230$ 


PC,CMPERRSTS 
NDTMSK 


DPE 
180% 


PC ,a(SP)+ 


220$ 


PC, SECERR 
196$ 


»RMDCO 
#SEARCri!GO,RMCS10 
PC ,PuT 


GO CHECK FOR PRIMARY ERRORS 
:G0_ TO 120$ IF NO ERROR 

RETURN HERE IF ERROR 

sERROR # DEFINED BY A 7 ems Vo 
:G0 BACK _FOR MORE — CHECKS 

:G0 TO 2308 IF ERROR 


:GO0 VERIFY RESULTS ol F OPERATION 
G0 TO 130$ IF NO ERR 

;RETURN HERE IF ER ROR 

;ERROR # DEFINED BY SEKSTS SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 

:G0 TO 2308 IF ERROR 


; LOAD CYLINDER ADDRESS 
LOAD SEARCH COMMAND 


:GO TO 140$ IF NO ERR 

:RETURN HERE IF ERROR. 

ERROR # DEFINED BY PUT SUBROUTINE 
:G0 TO 230$ IF ERROR 


;WAIT FOR SEARCH TO COMPLETE 


:60 a Ba it ko ta — GET SUBROUTINE 
:G0 TO 150$ IF N tio 

RETURN HERE IF ERR 

ZERROR # DEFINED BY Oger SUBROUTINE 

;G0 TO 230$ IF ERROR 


:GO CHECK FOR PRIMARY ERRORS 

:GO0 TO 160$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PRIERR SUBROUTINE 
:GO BACK FOR MORE ERROR CHECKS 

:G0 TO 230% IF ERROR 


:60 ial AL SEARCH OPERATION 
G0 TO 170$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY SCHSTS SUBROUTINE 
:GO BACK FOR MORE ERROR CHECKS 

360 TO 230$ IF ERROR 


;CHECK ANY ERRORS NOT MASKED 

:MASK FOR RMER1 

:MASK FOR RMER2 

:GO0 TO 180$ IF NO — 

;RETURN HERE IF ERROR 

hye # DEFINED BY CMPERRSTS SUBROUTINE 
O BACK FOR MORE ERROR CHECKS 
GO TO 230$ IF ERROR 


:, CHECK FOR SECONDARY ERRORS 
0 10 190° IF NO ERROR 
RETURN HEke IF ERROR 


360 writé shh sh tha Bhi PUT SUBROUTINE 


SEQ 0160 


CZRMMAO yeh FCTNL TST 1 


162 


RCH 

qebe8 

O3ee 0 

632 

2066 036636 
20 636 


2081 036720 


036720 


036740 
2084 
2085 036746 
036752 


036754 


2086 036766 
2087 036766 


2099 037052 


OF F 


012737 


004737 
054130 


000404 


o----— - OO0C0OO 
Sat tt tk et ot ot ot 
SF Moronroponrorononrorrw 


CYLINDER 


036720 


036312 


001100 


000063 
043150 


037320 
000000 


044070 
053530 


F 
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001442 
001442 


001416 


001226 


001442 


001410 


1908: 


2258: 
2308: 


Po a(SP)+ 
236$ 


A caste 
#FMT16,RMOFO 
#3 4 


;ERROR # DEFINED BY SECERR peerage 
:GO BACK FOR MORE ERROR CHECK 
360 TO 230$ IF ERROR 


;DECREMENT SEARCH CYLINDER 
: INCREMENT SEEK CYLINDER 

; INCREMENT SECTOR ADDRESS 
;DONE ALL SECTORS?? 

;NO - DO NEXT SECTOR 


—, 16 BIT MODE YET ? 
R YES 


:SET 16 BIT FORM 

:R MAXIMUM SECTOR ADDRESS 
RS SEARCH CYLINDER 

3R SEEK CYLINDER 

START AT TRACK = 0, SECTOR = 0 
:G0 TEST AGAIN 


SCRA AEA K KKK eKKeKKKeeteeeetteens 


s*TEST 63 


15163: 


80$: 


90$: 


SEARCH INVALID SECTOR 


'WERARBBAAAAASARAASASARBRARRRERASSASASASERERSASERERE RRS ERR RARER RARER SE | 


ASTACK ,SP 


#63, $TESIN 


PC, TSTPRP 
054130 


80% 


190% 


#0,RMOFO 
#0 RADCO 
#30., 


#PUTIN 

#RMDC, (R2)+ 
#RMOF .(R2)+ 
#RMDA.(R2)+ 
#RMCS1,(R2)4 
#200, (R2)* 
PC,GETSTS 


PC,CNTCLR 


DAO 
FSEARCI! GD. »RMCS10 


SCOPE CALL 

START OF TEST 

INITIALIZE STACK POINTER 

:RO = UNIBUS ADDRESS 

Z(R1) = DEVICE BEING TESTED 
:;SET TEST NUMBER IN APT MAIL BOX 


;PREPARE DEVICE FOR TEST 

TASK DESCRIPTOR AS FOLLOWS: 

;CLEAR CONTROLLER & SELECT DEVICE 
:VERIFY CONTROLLER CLEAR OPERATION 
:PACK ACKNOWLEDGE IF VOLUME NOT VALID 
:VERIFY PACK ACKNOWLEDGE 

SRECALIBRATE IF ‘‘SKI'’ OR ‘'PIP’’ IS SET 

2 my gy oy te 


ef 
_ 
mn 
Zz 
o 
zn 
Dw 
wD 
DO 
>] 


. ER ROR 
;ERROR # DEFINED BY TSTPRP SUBROUTINE 
3:60 TO 190$ IF ERROR 


sSET 18 BIT FORMAT 

sCYLINDER = 

:FIRST INVALID SECTOR = 30. 
; SEARCH COMMAND 

Team REGISTER TABLE FOR 


; TERMINATE TABLE 
;SETUP STATUS FETCH 


3GO0 ISSUE CONTROLLER CLEAR 


SEQ 0161 
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EARCH INVALID SECTOR SEQ 0162 
037056 000404 BR 95$ :G60 TO 95$ IF NO ERROR 
037060 000240 NOP ‘RETURN HERE IF ERROR 
037062 104000 EMT ‘ERROR NUMBER DEF INED BY SUBROUTINE 
027064 000137 037320 JMP 190$ :60 TO 190$ IF ERROR 

2100 037070 95$: 

2101 037070 004737 044424 JSR PC, PUT 7GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
037074 000404 BR 106$ :GO0 TO 100$ IF NO ER ROR 
037076 000240 NOP *RETURN HERE IF ERROR 
037100 104000 EMT sERROR # DEFINED BY PUT SUBROUTINE 
037102 000137 037320 JMP 190$ [60 TO 190$ IF ERROR 

2102 037106 100$: 

2103 037106 004737 044766 JSR PC, TIMOUT :WAIT FOR GO TO RESET 

2105 037112 004737 044154 JSR PC GET :60 READ REGISTER(S) WITH GET SUBROUTINE 
037116 000404 BR 120$ 0 120$ IF N ERRO 
037120 000240 NOP RETURN HERE IF PRR 
037122 104000 EMT TERROR # DEFINED BY “set SUBROUTINE 
037124 000137 037320 JMP 190$ :60 TO 190$ IF ERRO 

2106 037130 120$: 

2107 037130 004737 045152 JSR PC,PRIERR 3;GO CHECK FOR "an one — 
037134 000405 BR 130$ :G0 TO 130$ IF NO ERROR 
037136 000240 NOP [RETURN HERE IF ERROR 
037140 104000 EMT * ERROR # DEFINED BY PRIERR SUBROUTINE 
037142 004736 JSR PC,a(SP)+ 3G0 BACK FOR MORE ERROR CHECKS 
037144 000137 037320 JMP 190$ :GO TO 190$ IF ERROR 

2108 037150 130$: 

2109 037150 004737 057666 ISR PC,SCHSTS 3;G0 VERIFY SEARCH OPERATION 
037154 000405 BR 146$ :G0 TO 140$ IF NO ERROR 
037156 000240 NOP “ ~PRETURN HERE IF ERROR 
037160 104000 EMT ;ERROR # DEFINED BY SCHSTS SUBROUTINE 
037162 004736 JSR PC,a(SP)+ ;G0 BACK FOR MORE ERROR CHECKS 
037164 000137 037320 JMP 190$ :G60 TO 190$ IF ERROR 

2110 037170 140$: 

2111 037170 004737 061232 JSR PC,STCDRVSTS i CHECK FOR oy = DRIVE STATUS 
037174 000405 BR 156$ TO 150$ IF NO ERR 
037176 000240 NOP + TURN HERE IF ERROR” 
037200 104000 EMT TERROR # DEFINED BY STCDRVSTS SUBROUTINE 
037202 004736 JSR PC ,a(SP)+ 360 BACK FOR MORE ERROR CHECKS 
037204 000137 037320 JMP 196$ :GO TO 190$ IF ERROR 

2112 037210 150$: 

2113 037210 004737 051644 JSR PC,CMPERRSTS sCHECK ANY eg aa MASKED 
037214 117760 . WORD 1AE'NDTMSK sMASK FOR RMER1 
037216 000010 . WORD DPE sMASK FOR RMER2 
037220 000405 BR 160$ :GO TO 160$ IF NO ERROR 
037222 000240 NOP [RETURN HERE IF ERROR 
037224 104000 EMT sERROR # DEFINED BY CMPERRSTS SUBROUTINE 
037226 004736 JSR PC,a(SP)+ :GO BACK FOR MORE ERROR CHECKS 
037230 000137 037320 JMP 190$ :GO TO 190$ IF ERROR 

2114 037234 160$: 

2115 037234 004737 046004 JSR PC, SECERR 60 CHECK FOR SECONDARY ERRORS 
037240 000405 BR 170$ 760 TO 170$ IF NO ERROR 
037242 000240 NOP “RETURN HERE IF ERROR 
037244 104000 EMT sERROR # DEFINED ‘BY 23 ge SUBROUTINE 
037246 004736 JSR PC,a(SP)+ 3;GO BACK FOR MORE ERROR CHECKS 
037250 000137 037320 JMP 196$ :GO TO 190$ IF ERROR 

2116 037254 170$: 

2117 037254 005237 001416 INC RMDAO ; INCREMENT SECTOR ADDRESS 


H 13 
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163 SEARCH INVALID SECTOR SEQ 0163 
2118 037260 022737 000037 001416 CMP #31. ,RMDAO ;DONE ? 
$138 037266 103012 BHIS 175$ ;BR IF NO 
2121 037270 032737 010000 001442 BIT #FMT16,RMOFO ;TEST FOR 16 BIT MODE YET ? 
2122 037276 001010 BNE 190$ :BR IF YES 
2123 037300 012737 010000 001442 MOV #FMT16,RMOFO ;SET 16 BIT MODE 
2124 037306 012737 000037 001416 MOV #31. ,RMDAO :SET INVALID SECTOR = 31. 
2125 037314 000137 037052 175$:  JMP 90% :TEST NEXT SECTOR 
2126 037320 190$: 
2127 
2128 LUA A eee eee RAAT eee Tee eee eee A Ree R ARETE ARTE K ETE A TERT 
i*TEST 64 SEARCH INVALID TRACK 
LAA eee eee eee ATTA eee T eee eA RRA RARE ETAT ATE E Tee 
037320 TST64: 
037320 000004 SCOPE ;SCOPE CALL 
037322 000240 NOP sSTART OF TEST 
037324 012706 001100 MOV MSTACK,SP s INITIALIZE STACK POINTER 
037330 013700 001276 MOV $SBASE ,RO ;RO = UNIBUS ADDRESS 
037334 013701 001464 MOV TSTQUE ,R1 7(R1) = DEVICE BEING TESTED 
2129 037340 012737 000064 001226 MOV #64,$TESIN 3:SET TEST NUMBER IN APT MAIL BOX 
2130 037346 004737 043150 JSR PC, TSTPRP ;PREPARE DEVICE FOR JEST 
037352 054130 -WORD 054130 ;TASK DESCRIPTOR AS FOLLOWS: 
:CLEAR CONTROLLER & SELECT DEVICE 
;VERIFY CONTROLLER CLEAR OPERATION 
;PACK ACKNOWLEDGE IF VOLUME NOT VALID 
;VERIFY PACK ACKNOWLEDGE 
:RECALIBRATE IF ‘'SKI'' OR “'PIP’’ IS SET 
; VERIFY RECALIBRATION 
037354 000404 BR 80% :60 TO 80$ IF NO ERROR 
037356 000240 NOP ;RETURN HERE IF ERROR 
037360 104000 EMT sERROR # DEFINED BY TSTPRP SUBROUTINE 
037362 000137 037730 JMP 180$ :G0 TO 180$ IF ERROR 
2131 037366 80$: 
2132 037366 012737 000031 001410 MOV MSEARCH!GO,RMCS10 ;SEARCH COMMAND 
2133 037374 012737 000000 001444 MOV #0,RMDCO :CYLINDER = 0 
2134 037402 013737 001332 001416 MOV LSTRK,RMDAO sLAST TRACK, SECTOR = 0 
2135 037410 105237 001417 INCB RMDAO+1 * SETUP FIRST a TRACK 
2136 037414 012737 000000 001442 MOV #0,RMOFO SET 18 BIT FORMA 
2137 037422 012702 001543 MOV #PUTINX,R2 “WRITE REGISTER INDEX TABLE 
2138 037426 112722 000006 MOVB #RMDA, (R2)+ 
2139 037432 112722 000034 MOVB #RMDC,(R2)+ 
2140 037436 112722 000032 MOVB WRMOF ,(R2)+ 
214% 037442 112722 000000 MOVB WRMCS1, (R2)+ 
2142 037446 112722 000200 MOVB #200, (R2)+ TERMINATE TABLE 
2143 037452 004737 044070 JSR PC ,GETSTS 
2144 037456 90$: 
2145 037456 004737 053530 JSR PC,CNTCLR 366 135 CONTROLLER CLEAR 
037462 000404 be 958 :G0 10 95$ IF NO ERROR 
037464 000240 NOP RETURN HERE IF ERRO 
037466 104000 EMT ;ERROR NUMBER DEFINED BY SUBROUTINE 
037470 000137 037730 JMP 180% :G0 TO 180% IF ERROR 
2146 037474 95$: 
2147 037474 004737 044424 JSR PC,PUT 3G0 WRITE er gi P vi PUT SUBROUTINE 
037500 000404 BR 1068 :G0 TO 100$ IF NO ERR 
037502 000240 NOP ;RETURN HERE IF ERROR 
037504 104000 EMT ;ERROR # DEFINED BY PUT SUBROUTINE 


ARCH | 


FESR cones 


eats RMO5/3/2 FCTNL 
164 NVALID T 


000137 
004737 
004737 


000137 
004737 


000137 
004737 


000137 
004737 


000137 
004737 


000137 
004737 


TST 1 
RACK 
037730 


044766 
044154 


037730 
045152 


037730 
057666 


037730 
061232 


037730 
051644 


037730 
046004 


037730 


001417 
001417 


010000 
010000 


037456 


100$: 


1108: 


1208: 


130$: 


1408: 


150$: 


1608: 


1708: 


JMP 
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180$ 

PC, TIMOUT 
PC GET 
116$ 

180$ 

PC, PRIERR 
120% 
PC,a(SP)+ 
180$ 
PC,SCHSTS 
130$ 


PC,a(SP)+ 
180% 


PC,STCDRVSTS 
1408 


PC,a(SP)+ 
180% 


PC,CMPERRSTS 
NDTMSK!ITAE 


DPE 
150% 


PC,a(SP)+ 
180% 


PC, SECERR 
160$ 


PC,a(SP)+ 
186$ 


AO+1 


RMD 
RMDAO+1,#128. 
170% 
#FMT16,RMOFO 
180% 


#FMT16,RMOFO 
LSTRK,RMDAO 


RMDAO+1 
90% 


13 
12 


SEQ 0164 
;60 TO 180$ IF ERROR 
WAIT FOR GO TO RESET 


G0 READ REGISTER(S) a GET SUBROUTINE 
:G0 TO 110$ IF NO ae 


ERR 
ERROR # DEFINED 44 “ser SUBROUTINE 
:G0 TO 180$ IF ERRO 


;GO CHECK FOR oe Cae — 

G0 TO 120$ IF NO ERROR 

;RETURN HERE IF NERROR 

ERROR # DEFINED BY PRIERR SUBROUTINE 
[G0 BACK FOR MORE — CHECKS 

3:60 TO 180$ IF ERR 


:GO VERIFY SEARCH OPERATION 

360 TO 130$ IF NO ERROR 

SRETURN HERE IF ERROR 

:ERROR # DEFINED BY SCHSTS SUBROUTINE 
:GO BACK FOR MORE ERROR CHECKS 

:G0 TO 180$ IF ERROR 


:GO CHECK FOR ey DRIVE STATUS 
:GO0 TO 140$ IF NO ERR 

:RETURN HERE IF ERROR 

sERROR # DEFINED BY bh gras 4B SUBROUT INE 
:GO BACK FOR MORE ERROR CHECK 

:GO TC 180$ IF ERROR 


; CHECK — gr NOT MASKED 
MASK FOR RMER1 

“?. FOR RMER2 

0 TO 150$ IF NO — 
RETURN HERE IF ERROR 
ERROR # DEFINED BY CMPERRSTS SUBROUTINE 
:G0 BACK FOR MORE ERROR CHECKS 
GO TO 180$ IF ERROR 


:GO CHECK FOR SECONDARY ERRORS 
:G0 TO 160$ IF NO ERROR 


ERROR 
;ERROR # DEFINED BY SECERR SUBROUTINE 
;GO BACK FOR MORE ERROR CHECKS 
:G0 TO 180$ IF ERROR 


; INCREMENT TRACK ADDRESS 
t+ yy ALL TRACKS ? 


:DONE | 16 BIT MODE ? 
YES! 


SET i6 BIT FORMAT 

LAST TRACK, SECTOR = 0 

SSETUP FIRST INVALID TRACK ADDRESS 
TEST NEXT TRACK 
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SEARCH INVALID TRACK SEQ 0165 
2173 
2174 037730 180$: 
2176 RRA EEE e eee eee eee teeteetereeeeeeee 
SSTEST 65 SEARCH INVALID CYLINDER 
PERERA EAA ERE REET RAEHAAERHAARKERAARARee eee eee 
037730 1é165: 
037730 000004 SCOPE :SCOPE CALL 
037732 000240 NOP [START OF TEST 
037734 012706 001100 MOV #STACK,SP : INITIALIZE STACK POINTER 
037740 013700 001276 MOV SBASE ,RO :RO = UNIBUS ADDRESS 
037744 013701 001464 MOV TSTQUE,R1 7(R1) = DEVICE BEING TESTED 
oy 037750 012737 000065 001226 MOV #65, $TESIN :;SET TEST NUMBER IN APT MAIL BOX 
2178 037756 004737 043150 JSR PC, TSTPRP :PREPARE DEVICE FOR TEST 
037762 054130 -WORD 054130 STASK DESCRIPTOR AS FOLLOWS: 
:CLEAR CONTROLLER & SELECT DEVICE 
;VERIFY CONTROLLER CLEAR OPERATION 
:PACK ACKNOWLEDGE IF VOLUME NOT VALID 
‘VERIFY PACK ACKNOWLEDGE 
*RECALIBRATE IF ‘SKI’ OR “'PIP’' IS SET 
[VERIFY RECALIBRATION 
037764 000404 BR 80$ :G0 TO 80$ IF NO ERROR 
037766 000240 NOP [RETURN HERE IF ERR 
037770 104000 EMT sERROR # DEFINED BY OF STRAP SUBROUTINE 
037772 000137 040330 JMP 190$ :GO0 TO 190$ IF ERROR 
2179 037776 80S: 
2180 027776 012737 000031 001410 MOV oesa mare RMCS10 s;SEARCH COMMAND 
2181 040004 012737 001467 001444 MOV #823. RMDCO :START AT FIRST INVALID CYLINDER 
2182 040012 012737 000000 001416 MOV 70 -RaDAO :TRACK = 0, SECTOR = 0 
2183 040020 012737 000000 001442 MOV #0.RMOFO :SET 18 BIT FORMAT 
2184 040026 012702 001543 MOV #PUTINX,R2 [WRITE REGISTER INDEX TABLE 
2185 040032 112722 000032 MOVB  #RMOF,(R2)+ 
2186 040036 112722 000034 MOVB  #RMDC.(R2)+ 
2187 040042 112722 000006 MOVB  #RMDA.(R2)+ 
2188 040046 112722 000000 MOVB  #RMCS1,(R2)+ 
2189 040052 112722 000200 MOVB #200, (R2)¢4 
2190 040056 004737 044070 JSR PC,GETSTS :SETUP STATUS FETCH 
2191 040062 90$: 
2192 040062 004737 053530 JSR PC,CNTCLR :G0 ISSUE CONTROLLER CLEAR 
040066 000404 BR 95$ :GO0 TO 95$ IF NO ERRO 
040070 000240 NOP ‘RETURN HERE IF ERR = 
040072 104000 EMT * ERROR NUMBER DEFINED BY SUBROUTINE 
040074 000137 040330 JMP 190$ 760 TO 190$ IF ERROR 
2193 040100 95$: 
2194 040100 004737 044424 JSR PC, PUT :GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
040104 000404 BR 106 :GO TO 100$ IF NO ER ROR 
040106 000240 NOP [RETURN HERE IF ERROR 
040110 104000 EMT :ERROR # DEFINED BY PUT SUBROUTINE 
040112 000137 040330 JMP 190$ 760 TO 190$ IF ERROR 
2195 040116 100$: 
2196 040116 004737 044766 JSR PC, TIMOUT 
2198 040122 004737 044154 JSR PC,GET :G0 READ REG] STER(S) WITH GET SUBROUTINE 
040126 000404 BR 116$ :GO TO 1108 IF N RROR 
040130 000240 NOP sRETURN HERE IF PR 


040132 104000 EMT ERROR # DEFINED BY ET SUBROUTINE 


165 


2199 
2200 


2201 
2202 


0 
2203 


2204 


2205 
2206 


2207 
2208 


MOMPENINONMIPNMIPMOP No Po foro 
MOMINMININPOP PNM PoNonofnofor 
PRODI a a sO 
MmM—OCOOnOufwnry—oOoO 


RCH 
040134 


040276 
040300 


040324 
040330 


040330 
040330 
040332 


CZRMMAO oreatat ak TST 1 
INVALID CYLIND 


000137 
004737 


000137 
004737 


000137 
004737 


000137 
004737 


000137 
004737 


000137 
005237 


000004 
000240 


040330 
045152 


040330 
057666 


040330 
061232 


040330 
051644 


040330 
046004 


040330 
001444 
001444 
010000 
010000 


001467 
040062 
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en JMP 190$ :G0 TO 190$ IF ERROR 
JSR PC, PRIERR :GO CHECK FOR PRIMARY ERRORS 
BR 126$ 760 TO 120$ IF NO ERRO 
NOP [RETURN HERE IF ER ROR 
EMT SERROR # DEFINED BY PRIERR SUBROUTINE 
JSR PC,a(SP)+ :GO BACK FOR MORE ERROR CHECKS 
vee JMP 196$ [G0 TO 190$ IF ERROR 
JSR PC, SCHSTS :60 VERIFY SEARCH OPERATION 
BR 130$ 0 130$ IF NO ERROR 
NOP RETURN HERE IF NERROR 
EMT sERROR # DEFINED BY SCHSTS SUBROUTINE 
JSR PC,a(SP)+ :G0 BACK FOR MORE ERROR CHECKS 
iain JMP 196$ :G0 TO 190$ IF ERROR 
JSR PC,STCDRVSTS | ;GO CHECK FOR CHANGES IN DRIVE STATUS 
BR 140$ :GO TO 140$ IF NO ERR 
NOP SRETURN HERE IF ERROR. 
EMT TERROR # DEFINED BY STCDRVSTS < SUBROUTINE 
JSR PC,a(SP)+ :GO BACK FOR MORE ERROR CHECKS 
Boe JMP 196$ :GO0 TO 190$ IF ERROR 
JSR PC,CMPERRSTS | ;CHECK ANY ERRORS NOT MASKED 
.WORD LAE 'NDTMSK :MASK FOR RMER1 
-WORD DPE :MASK FOR RMER2 
BR 150$ :G0 TO 150$ IF NO ERROR 
NOP SRETURN HERE IF ERROR 
EMT TERROR # DEFINED BY CMPERRSTS SUBROUTINE 
JSR PC,a(SP)+ [GO BACK FOR MORE ERROR CHECKS 
ie MP 190$ :GO TO 190$ IF ERROR 
JSR PC, SECERR :GO CHECK FOR SECONDARY ERRORS 
BR 160$ :GO TO 160$ IF NO ERROR 
NOP “RETURN HERE IF ERROR 
EMT TERROR # DEFINED BY SECERR SUBROUTINE 
JSR PC,a(SP)+ [GO BACK FOR MORE ERROR CHECKS 
ie JMP 190$ :GO TO 190$ IF ERROR 
INC RMDCO :INCREMENT CYLINDER ADDRESS 
002000 CMP RMDCO,#1024. § :DONE ALL CYLINDERS ? 
BLT 170$ NO! ! 
001442 BIT WEMTI6,RMOFO = ;SET 16 BIT FORMAT 
BNE 190$ YES! 
001442 MOV #FMT16,RMOFO SET ib BIT FORMAT 
001444 MOV #823. ,RMDCO >START AT FIRST INVALID CYLINDER 
170$: UMP 90$ 
190$: 
: seeeekkaeeeeee eee eee eee eee eee eee eee Kee Kee TKK KKe teeter eee t 
;#TEST 66 IVC SEARCH TEST 
pee eeeee eee eee eee eee eee eee eee eK AKA Ke Keke eee eee ees 
18166: 
SCOPE :SCOPE CALL 


NOP :START OF TEST 


SEQ 0166 


ste RMOS/3/2 FCTNL TST 1 


WAWwwirenor 


MPOPIPEMOMEMININENPER fy fofror 
MMMM frefnoenonsensefofeforofr 
SOOOnNO UE WN —OOOn 


IvC SEARCH TEST 


040334 


040362 


040364 


000137 
112737 


—s — 
oO _ 
Nm 
oO ~ 
Sof OwWWw 
ooLfnaws 


~~“ 
eo 
o-oo S$ OOCCSOOo 


Oa SS 
WINININI NN OWW We 


FROMM PNPPOPo fy fPofryrs 
NNN NNN 


So 

S 

=] 

w 

= 

mS 

—Soo0O 

233 
oof 

on en 

ofow 
orn 


000137 
004737 


004737 
5 


000240 
104000 


043150 


040710 
000024 


044424 


040710 


044424 


040710 
044766 
044154 


040710 
045152 
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001226 


001543 
001544 
001434 


001434 


001410 


80$: 


90$: 


100$: 


110$: 


MSTACK,SP 
SBASE ,RO 
TSTQUE ,R1 
#66, STESIN 


80$ 


160$ 


#RMMR1 ,PUTINX 
#200,PUTINX+1 
#DMD ,RMMR10 


160$ 

#0, RMMR10 
#0,RMDCO 

#0, tee 

#0,R 


#PUTINX,R 
#RMMR1,(R2)+ 
WRMDC, (R2)+ 
#RMDA, (R2)+ 
#RMOF , (R2)+ 
#RMCS1,(R2)+ 
#200, (R2)+ 
PC,GETSTS 

PC PUT 

100% 


1608 

PC, TIMOUT 
PC,GET 
116$ 


160% 


PC PRIERR 
1208 


MOFO 
SEARCH!GO, »RMCS10 


+ INITIALIZE STACK POINTER 
;RO S ADDRESS 


TESTED 
::SET TEST NUMBER IN APT MAIL BOX 


;PREPARE DEVICE FOR TEST 

TASK DESCRIPTOR AS FOLLOWS: 

CLEAR CONTROLLER & SELECT DEVICE 
VERIFY CONTROLLER CLEAR OPERATION 
;PACK ACKNOWLEDGE IF VOLUME NOT VALID 
VERIFY PACK ACKNOWLEDGE 

sRECALIBRATE IF ‘'SKI"' OR ‘'PIP’’ IS SET 
; VERIFY RECALIBRATION 

:G0_ TO 80$ IF NO ERROR 

:RETURN HERE IF ERROR 

ERROR # DEFINED BY TSTPRP SUBROUTINE 
:G0 TO 160$ IF ERROR 


:SETUP PUT INDEX TABLE 

SET TERMINATOR BYTE 

;SET RMMR1 OUTPUT BUFFER = 

:GO WRITE RMMR1 VIA PUT SUBROUTINE 
G0 TO 90$ IF NO te “45 

RETURN HERE IF ERR 

;ERROR DEFINED BY PUT SUBROUTINE 
:G0 TO 160$ IF ERROR 

RESET ew wees MODE 


SEARCH COMMAND 
;LOAD INDEX TABLE 


:60 WRITE REGISTER(S) WITH PUT SUBROUTINE 
T NO = ROR 


: ERROR 
ERROR # DEFINED a — SUBROUT INE 
G0 TO 160% IF ERRO 


WAIT FOR GO TO RESET 


:G0 READ i eae WITH GET SUBROUTINE 
360 TO 1108 IF _N A. — 

;RETURN HERE IF ERR 

TERROR # DEFINED BY oer SUBROUTINE 

G0 TO 160% IF ERROR 


0 CHECK FOR .- yt A score: 
0 TO 1208 IF N Bing 


ROR 
TERROR # DEFINED BY PRIERR SUBROUTINE 


SEQ 0167 


"13 
E l2 
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166 IVC SEARCH TEST SEQ 0168 
040606 004736 JSR PC,a(SP)+ 3;G0 BACK FOR MORE ERROR CHECKS 
040610 000137 040710 MP 166$ [G0 TO 160$ IF ERROR 
ae dcoete 032737 010000 001376 sens BIT #1VC.RMERZI :D1D IVC SET?? 
Vv V 
2249 040622 001012 BNE 140 SYES!! 
2250 040624 012737 010000 001140 MOV sive SGDDAT SE NPECTED STATUS 
2251 040632 013737 001376 001142 MOV RMERCI,$BDDAT :RECEIVED STATUS 
232 040640 042737 167777 001142 BIC #*C1VC.$BDDAT 
2253 040646 104260 EMT 260 
2254 040650 130$: 
2255 040650 004737 051644 JSR PC, CMPERRSTS + CHECK ANY a NOT MASKED 
040654 115760 WORD NDOTMSK ;MASK FOR RMERI 
040656 010010 .~ WORD IVC !DPE ZMASK FOR RMER2 
040660 000405 BR 150$ 0 150$ IF NO ERROR 
040662 000240 NOP serum HERE IF ERR 
0664 104000 EMT sERROR # DEFINED BY OCMPERRSTS SUBROUT INE 
040666 004736 JSR PC ,a(SP)+ 60 BACK FOR MORE ERROR CHECKS 
040670 000137 040710 JMP 160$ 760 TO 160$ IF ERROR 
2256 040676 1508: 
2257 040674 004737 046004 JSR PC,SECERR 3;GO CHECK FOR py ERRORS 
040700 000403 BR 160$ :G0 TO 160$ IF NO ERROR 
040702 000240 NOP sRETURN HERE IF ERROR 
040704 104000 EMT ERROR # DEFINED BY SECERR SUBROUTINE 
040706 004736 JSR PC,a(SP)+ 3;GO BACK FOR MORE ERROR CHECKS 
2258 040710 1608: 
2259 
2260 pee eeeeeeeeteeeeeeteteeeeeteeeeteeneetteeeeeeeeeeeteeeeneeneees 
TeTEST 67 ABORT SEARCH TEST 
 ;eeeeeeeeeeneeeeeteeeeeeeeeeeeeeeeeeeeeeeeeeeeeneeneeeeeteeeeeee 
040710 1$167: 
040710 000004 SCOPE sSCOPE CALL 
040712 000240 NOP ;START OF TEST 
040714 012706 001100 MOV ASTACK,SP INITIALIZE STACK POINTER 
040720 013700 001276 MOV SBASE ,RO RO = UNIBUS ADDRESS 
040724 013701 001464 MOV TSTQUE,R1 2 (RI) DEVICE BEING TESTED 
2261 040730 012737 000067 001226 MOV #67,$TESIN 3SET TEST NUMBER IN APT MAIL BOX 
2262 040736 004737 043150 JSR PC, TSTPRP ;PREPARE DEVICE FOR TEST 
040742 054130 . WORD 054130 ; TASK DESCRIPTOR AS FOLLOWS: 
;CLEAR CONTROLLER & SELECT DEVICE 
;VERIFY CONTROLLER CLEAR OPERATION 
sPACK ACKNOWLEDGE IF VOLUME NOT VALID 
sVERIFY PACK ACKNOWL LEDGE 
*RECALIBRATE IF ‘'SKI'' OR “‘PIP’’ 3S SET 
‘VERIFY RECALIBRATION 
040744 000404 BR 80$ :G0 TO 80$ IF NO ERROR 
040746 000240 NOP ;RETURN HERE IF ERROR 
040750 104000 EMT sERROR # DEFINED . TSTPRP SUBROUTINE 
040752 000137 041254 JMP 1608 'G0 TO 160$ IF ERRO 
2263 040756 80S: 
2264 040756 012737 040000 001424 MOV #UNS ,RMERIO ;SET UNSAFE ERROR 
2265 040764 012737 000031 001410 MOV #SEARCH'GO, RMCS10 ;SEARCH COMMAND 
2266 040772 012737 000000 001444 MOV #0, RMDCO =CYLINDER 0 
2267 041000 012737 000000 001416 MOV #0. RMDAO :SECTOR = 0, TRACK = 0 
2268 041006 012702 001543 MOV #PUTINX, R2 “WRITE REGISTER INDEX TABLE 
2269 041012 112722 000034 MOVB  #RMDC, (R2)¢ 
2270 041016 112722 000006 MOVB = #RMDA.(R2)¢4 


CZRMMAO RMOS/3/2 FCTNL TST 1 


167 ABORT SEARCH TEST 


wre 
Oo 

FR 

— 

ooo 

mr 

Nm 


SLELLELEE 


FRR 


PP or er ere 


41076 


Wwr—O Oo 
oooooo 
— 
oe 
on 
eo 


or ar at et et 


Nm 
™~m 
oo 
o 
o 
* 
et a a ee a ed ee ed ed ed 
att tatatabatabah aba aad ad ad 


oConcon~ 
AOVUULEE EW WWWh—oO 


Mrofororrnrrs 
Mropnrrrr 


MOF LOSCSNVMA WwNMONESO 


2293 04 
2294 04 


2295 0 
2296 0 


000137 
032737 


104261 
004737 
004737 


000137 
004737 


000137 
004737 


000137 
004737 


000137 


004737 
000403 
000240 


000014 


044424 


041254 
044154 


041254 
020000 
000000 
001346 
157777 
44766 
044154 


041254 
045152 


041254 
061232 


041254 
051644 


041254 
046004 
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001346 


001140 
001142 
001142 


90$: 


100$: 


1108: 


120$: 


130$: 


140$: 


150$: 


160% 
APIP,RMDSI 
1108 


#0,$GDDAT 
RMDSI,$BODAT 


#*CPIP,S$BDDAT 
261 


PC,TIMOUT 
PC,GET 
120% 

160$ 
PC,PRIERR 
130$ 


PC,a(SP)+ 
160% 


PC,STCDORVSTS 


140$ 


PC,a(SP)+ 


160$ 


PC,CMPERRSTS 
NDTMSK! UNS 
DPE 

150$ 


PC,a(SP)¢ 
160$ 


PC, SECERR | 
160% 


; TERMINATE TABLE 

:SETUP FOR STATUS 

:G0 WRITE sig yt WITH PUT SUBROUTINE 
360 TO 908 IF * on “yy 

RETURN HERE IF ERR 

ERROR # DEFINED BY *Put SUBROUTINE 

G0 TO 160% IF ERROR 


:GO READ REGISTER(S) A \ GET SUBROUTINE 
;60 00 NO Son ~e: 


ERR 
DEFINED BY GET SUBROUTINE 
£60 10 1608 IF ERROR 


:1S PIP SET?? 
"NO! ! 


SEXPECTED STATUS 
“RECEIVED STATUS 


:WAIT FOR GO TO RESET 
:GO0 READ REGISTER(S) WITH GET SUBROUTINE 
760 T NO ERROR 


; ERROR 
sERROR # DEFINED BY GET SUBROUTINE 
G0 TO 160$ IF ERROR 


RIMARY oo 
NO ERROR 


RROR 
: D BY ye SUBROUT I NE 
:GO BACK FOR MORE ERROR CHECKS 

360 TO 160$ IF ERROR 


GO CHECK FOR yg fo ” DRIVE STATUS 
:G0 TO 140$ IF NO ERR 

RETURN HERE IF ERR OR. 

ERROR # DEFINED BY Lh eke He SUBROUTINE 
:GO BACK FOR MORE ERROR CHECKS 

:G0 TO 160$ IF ERROR 


CHECK ANY ERRORS NOT MASKED 
;MASK FOR RMER1 
sMASK FOR RMER2 
:G0 TO 150$ IF NO ERROR 
RETURN HERE JF ERROR 
ERROR # DEFINED BY ogee ph SUBROUT I NE 
:GO BACK FOR MORE ERROR CHECKS 
G0 TO 160% IF ERROR 


GO CHECK FOR yy ERRORS 
:G0 TO 160% IF NO ERR 
;RETURN HERE IF ERROR 


SEQ 0169 
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T 
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6 


R 
? 
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041250 
041252 
041254 


041254 


2300 
2301 041302 
041306 


oo 
wr 
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MRI PoP fof fnofor 

BeseseSsssssssys 

—— St 1 OO S3z 

wr —Oo90eOnou 
SENNatme 

NOME MOMS OONMNMNCGE LNMO 


NESSSRSSENSS 


RoMenefononofnor 


104000 
004736 


000004 


012737 


004737 
054130 


000404 
000240 


— tt ot I OOOVOO 
ee ed ed ed ed ed ed ed 
SSN NSN NS SS 


ss 
S 
OO FS MAMPI PN Pory 


000137 
004737 


001100 

64 
000070 
043150 


041612 
000000 


044424 


041612 


044070 
044766 


000000 
000200 


000031 
044424 


041612 
044766 
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001226 


001444 


001410 


001543 
001544 
001410 


1608: 


EMT 
JSR 


ERROR # DEFINED BY SECERR SUBROUTINE 


PC ,a(SP)+ 260 BACK FOR MORE ERROR CHECKS 


ps teeter eerreerererererereretrereneeeneeneeereeaneereteeaeeeeeeeee 


:*TEST 70 


RATE TITITITITITLE LILIA 


1$170: 


80$: 


90$: 


130$: 


SEARCH AT OFFSET oe 


SCOPE CALL 
START OF TEST 
STACK ,SP s INITIALIZE STACK POINTER 


SBASE ,RO :RO = UNIBUS ADDRESS 

TSTQUE ,R1 :(R1) = DEVICE BEING TESTED 

#70,$TESTN ::SET TEST NUMBER IN APT MAIL BOX 

PC, TSTPRP ' ;PREPARE DEVICE FOR TEST 

054130 TASK DESCRIPTOR AS FOLLOWS: 

;CLEAR CONTROLLER @ SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 
:;PACK ACKNOWLEDGE IF VOLUME NOT VALID 
VERIFY PACK ACKNOWLEDGE 
;RECALIBRATE IF ‘'SKI'* OR ''PIP’’ IS SET 
VERIFY RECALIBRATION 

80% :G0 TO 80$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR # DEFINED BY TSTPRP SUBROUTINE 

180% ;G0 TO 180$ IF ERROR 

#0,RMOCO CYLINDER = 0 

#0 ,RMDAO 


sTRACK = 0, SECTOR = 0 
#FMT16,RMOFO 316 BIT FORMAT 
WOFFSET!GO,RMCS10 ;OFFSET COMMAND 


#PUTINX,R2 ;SETUP REGISTER INDEX TABLE 
#RMDA,(R2)+ sFOR SEEK TO CYLINDER 0 
#RMDC,(R2)+ 
WRMOF ,(R2)+ 
#RMACS1,(R2)+ 
#200, (R2)¢ 
PC,PuT 3G0 WRITE REGISTER(S) WITH PUT SUBROUTINE 
908 :G0 TO 90$ IF NO ERROR 

;RETURN HERE IF ERROR 

sERROR # DEFINED BY PUT SUBROUTINE 
180% 360 TO 180$ IF ERROR 
PC,GETSTS s;SETUP FOR STATUS FETCH 
PC,TIMOUT 
#RMCS1,PUTINX ;LOAD REGISTER INDEX TABLE 
#200, PUTINKX+1 
#SEARCH'GO,RMCS10 ;STORE SEARCH COMMAND 
PC,PUT 3G0 WRITE REGISTER(S) WITH PUT SUBROUTINE 
1308 :GO TO 130$ IF NO ERROR 

sRETURN HERE IF ERROR 

TERROR # DEFINED BY PUT SUBROUTINE 
180% 760 TO 180$ IF ERROR 
PC,TIMOUT sWA!IT FOR SEARCH TO COMPLETE 


SEQ 0170 


C 14 
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170 SEARCH AT OFFSET SEQ 0171 
2324 
2325 061474 004737 044154 JSR PC,GET :G0 READ REGISTER(S) WITH GET SUBROUTINE 
041500 000404 BR 146$ :G0 TO 140$ IF NO ERROR 
041502 000240 NOP ;RETURN HERE IF ERROR 
041504 104000 EMT sERROR # DEFINED BY GET SUBROUTINE 
041506 000137 041612 JMP 180$ ‘G60 TO 180$ IF ERROR 
2326 041512 140$: 
2327 041512 004737 045152 JSR PC, PRIERR 3G0 CHECK FOR PRIMARY ERRORS 
041516 000405 BR 156$ :G0 TO 150$ IF NO ERROR 
041520 000240 NOP ;RETURN HERE IF ERROR 
041522 104000 EMT sERROR # DEFINED BY PRIERR SUBROUTINE 
041524 004736 JSR PC,a(SP)+ 3G0 BACK FOR MORE ERROR CHECKS 
041526 000137 041612 JMP 180$ :G0 TO 180$ IF ERROR 
2328 041532 150$: 
2329 041532 004737 057666 JSR PC,SCHSTS 3G0 VERIFY SEARCH OPERATION 
041536 000405 BR 160$ :G0 TO 160$ IF NO ERROR 
041540 000240 NOP ;RETURN HERE IF ERROR 
041542 104000 EMT sERROR # DEFINED BY SCHSTS SUBROUTINE 
041544 004736 JSR PC,a(SP)+ 3;GO BACK FOR MORE ERROR CHECKS 
041546 000137 041612 JMP 180$ :G60 TO 180$ IF ERROR 
2330 041552 160$: 
2331 041552 004737 051644 JSR PC,CMPERRSTS sCHECK ANY ERRORS NO] MASKED 
041556 115760 ~ WORD NOTMSK sMASK FOR RMER1 
041560 000010 ~ WORD DPE sMASK FOR RMER2 
041562 000405 BR 170$ :GO TO 170$ IF NO ERROR 
041564 000240 NOP TRETURN HERE IF ERROR 
041566 104000 EMT sERROR # DEFINED BY CMPERRS1S SUBROUTINE 
041570 004736 JSR PC ,a(SP)+ 3;G0 BACK FOR MORE ERROR CHECKS 
041572 000137 041612 JMP 186$ :GO0 TO 180$ IF ERROR 
2332 041576 1708: 
2333 041576 004737 046004 JSR PC,SECERR 3;GO CHECK FOR SECONDARY ERRORS 
041602 000403 BR 180$ :GO TO 180$ IF NO ERROR 
041604 000240 NOP ;RETURN HERE IF ERROR 
041606 104000 EMT sERROR # DEFINED BY SECERR SUBROUTINE 
041610 004736 JSR PC,a(SP)+ :;GO BACK FOR MORE ERROR CHECKS 
2334 041612 180$: 
2343 SFP RAAAAAARAAAA EA AE AEA EA AA AAAAAAAARAAEAAAAEARAAHAAERA AH KATARAATAAe 
s*TEST 71 HEAD ALIGNMENT SEEK 
:*HEAD ALIGNMENT FOR AN RMO05/3/2 DRIVE, 1S PERFORMED AT CYLINLER 
3*245 DECIMAL USING THE CE PACK. A 60 MINUTE WARMUP IS REQUIRED IF 
s*THE PACK WAS NOT IN THE DRIVE PRIOR TO HEAD ALIGNMENT OPERATION. 
*@ 
i eeeeeneneneeneeereteeeeneetteneneteneeneeeeeeenenereneeeeeeeeee 
041612 TST71: 
041612 000004 SCOPE 7SCOPE CALL 
041614 000240 NOP *START OF TEST 
041616 012706 001100 MOV @STACK,SP s INITIALIZE STACK POINTER 
041622 013700 001276 MOV SBASE RO :RO = UNIBUS ADDRESS 
041626 013701 001464 MOV TSTQUE ,R1 7(R1) = DEVICE BEING TESTED 
041632 012737 000001 001206 MOV #1 STIME >:D0 1 ITERATION 
oo 041640 012737 000071 001226 MOV #71, S$TESIN >:SET TEST NUMBER IN APT MAIL BOX 
2345 041646 108: 
2346 041646 004737 043150 JSR PC, TSTPRP ;PREPARE DEVICE FOR TEST 
041652 054130 WORD 054130 sTASK DESCRIPTOR AS FOLLOWS: 


ata RMO5S/3/2 FCTNL 


TST 1 
K 


HEAD ALIGNMENT SEE 


2365 042040 
2366 042040 


042060 
2367 042064 
2368 042064 


000404 


004737 
004737 


000137 
004737 


000137 
004737 


000137 
004737 


042100 
000365 


044424 


042100 
044070 
044766 


044154 


042100 
045152 


042100 
052270 


042100 
051644 


042100 
946004 
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001444 
001416 
001410 


80$ 


90$: 


100$: 


110$: 


1208: 


130$: 


80% 
140% 


#0, 


PC PUT 
90% 


1408 
PC,GETSTS 
PC. TIMOUT 
PC GET 
106$ 

1408 

PC, PRIERR 
110$ 


PC ,a(SP)+ 
140% 


PC,SEKSTS 


1208 


PC,a(SP)+ 


146$ 


NDT 
DPE 
130$ 


PC,a(SP)+ 
146$ 


PC,SECERR 


#245. ,RMDCO 
RMDAO 

aSEEK G0, »RMCS10 

#RMDC, (R2)+ 

#RMDA, (R2)+ 


#RMCS1, (R2)4 
#200, (R2)+ 


PC,CMPERRSTS 
MSK 


CLEAR CONTROLLER @ SELECT DEVICE 

: VERIFY CONTROLLER CLEAR OPERATION 
;PACK ACKNOWLEDGE IF VOLUME NOT VALID 
VERIFY PACK ACKNOWLEDGE 

sRECALIBRATE IF ‘'SKI'’ OR ‘'PIP’' IS SET 
: VERIFY RECALIBRATION 

;G0 TO 80$ IF NO 


ERROR 


:60 T 

RETURN HERE IF ERROR 

sERROR # DEFINED BY TSTPRP SUBROUTINE 
G0 TO 1408 IF ERROR 


4 egy 245. 
TRACK = 0, SECTOR = 0 


LOAD SEEK COMMAND IN BUFFER 


;R2 POINTS TO REGISTER TABLE 
WRITE REGISTER INDEX TABLE 


s;WRITE TERMINATOR 

++ WRITE ery WITH PUT SUBROUTINE 
0 TO 90$ IF NO ERROR 

‘RETURN HERE IF ERROR 

ERROR # DEFINED BY PUT SUBROUTINE 

GO TO 140$ IF ERROR 

SETUP FOR STATUS FETCH 


:WAIT FOR SEEK TO COMPLETE 


:GO READ yet WITH GET SUBROUTINE 
:GO TO 1008 IF cake — 


;RETURN HERE IF NERR 
sERROR # DEFINED BY oer SUBROUT INE 
:G0 TO 140$ i: ERROR 


:60 od FOR rok can — 
:GO0 TO 110$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR # DEFINED BY PRIERR SUBROUTINE 


:G0 BACK FOR MORE ERROR CHECKS 
:G0 TO 1408 IF ERROR 


‘= VERIFY Te a Ree OPERATION 
OQ TO 120$ IF NO ERR 
RETURN HERE IF NERROR. 


SERROR # DEFINED BY SEKSTS SUBROUTINE 
:GO BACK FOR MORE ERROR CHECKS 
:G0 TO 140$ IF ERROR 


+ CHECK ANY wen NOT MASKED 
;MASK FOR RMER1 
:MASK FOR RMER2 


:G0 TO 130$ IF NO ERROR 
RETURN HERE IF ERROR 

sERROR # DEFINED BY CMPERRSTS SUBROUTINE 
:;GO BACK FOR MORE ERROR CHECKS 

3:60 TO 1408 IF ERROR 


GO CHECK FOR SECONDARY ERRORS 


SEQ 0172 
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HEAD ALIGNMENT SEEK SEQ 0173 
042070 000403 BR 1408 ;G0 TO 140$ IF NO ERROR 

042072 000240 NOP RETURN HERE IF ERROR 

042074 104000 EMT ;ERROR # DEFINED BY SECERR SUBROUTINE 

042076 004736 JSR PC,a(SP)+ :GO BACK FOR MORE ERROR CHECKS 


2369 042100 1408: 
2370 
2374 
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END OF SUB-PASS ROUTINE SEQ 0174 


} .SBTTL END OF SUB=PASS ROUTINE 
3 ;THIS IS THE END OF SUB-PASS ROUTINE. THIS ROUTINE IS USED TO 
4 S TERMINATE THE OPERATION, OF THE CURRENT DEVICE UNDER TEST AND 
5 7SELECT THE NEXT DEVICE FOR TEST. IF THERE ARE NO MORE DEVICES 
, :TO TEST, EXIT IS MADE 10. '$SEOP' ROUTINE. OTHERWISE, RETURN 
i 71S MADE TO 'READY’ ROUTINE. 
9 042100 000004 SEOSP: SCOPE 
10 042102 000240 NOP 
11042106 013700 001464 MOV TSTQUE ,RO :GET POINTER TO TSTQUE 
12 042110 062700 000002 ADD #2,R0 ‘ADJUST POINTER TO NEXT DEVICE 
13042114 010037 001464 MOV RO, TSTQUE “SAVE POINTER TO TSTQU 
14 042120 005710 1ST (RO) ZANY MORE DEVICES FOR TEST ? 
15 042122 001402 BEQ 1$ ‘BR IF NO 
16 042124 000137 007756 JMP READY ‘YES, JUMP TO READY 
17 042130 012737 001466 001464 1$: MOV #TSTQUE+2,TSTQUE s INITIALIZE POINTER TO FIRST DEVICE IN 
18 :TEST QUE TABLE 
20 .SBTTL END OF PASS ROUTINE 
Peeeeeeneneekee eee tet kketkeeneeeeteeeteKeeeeeeeteeeteee 
“SINCREMENT THE PASS NUMBER ($PASS) 
>*TYPE "END PASS #XXXXX TOTAL NUMBER OF ERRORS SINCE LAST REPORT yyyvy" 
S*WHERE XXXXX AND YYYYY ARE DECIMAL NUMBERS 
‘eI]F THERES A MONITOR GO TO IT 
>*IF THERE ISN'T JUMP TO READY 
042136 SEOP: 
042136 000240 NOP 
042140 005037 001116 CLR $TSTNM ::2ERO THE TEST NUMBER 
042144 005037 001206 CLR STIMES ::ZERO THE NUMBER OF ITERATIONS 
042150 005237 001230 INC $PASS :: INCREMENT THE PASS NUMBER 
042154 042737 100000 001230 BIC #100000, $SPASS ::DON'T ALLOW A NEG. NUMBER 
042162 005327 DEC >: LOOP? 
042164 000001 SEOPCT: .WORD 1° 
042166 003063 BGT $DOAGN Zr YES 
042170 012737 MOV (PC)+,a(PC)+  ::RESTORE COUNTER 
042172 000001 SENDCT: .WORD 1 
042174 042164 $EOPCT 
042176 104401 042204 TYPE 058 si TYPE ASCIZ STRING 
042202 000407 BR GET OVER THE ASCIZ 
::65$: .ASCIZ a PASS # 
042222 64$: 
042222 013746 001230 MOV SPASS,-(SP) ::SAVE $PASS FOR TYPEOUT 
ti TYPE PASS NUMBER 
042226 104405 TYPDS ::G0 TYPE--DECIMAL ASCII WITH SIGN 
042230 104401 042236 TYPE 678 i TYPE ASCIZ STRING 
042234 000421 BR 66$ [GET OVER THE ASCIZ 
::67$: .ASCIZ / TOTAL ERRORS SINCE LAST REPORT / 
042300 66$: 
042300 013746 001126 MOV SERTIL,-(SP) SAVE SERTTL FOR TYPEOUT 
:: TOTAL NUMBER OF ERRORS 
042304 104405 TYPDS +:G0 TYPE--DECIMAL ASCI] WITH SIGN 
042306 104401 001217 TYPE $CRLF +: TYPE CARRIAGE RETURN, LINE FEED 
042312 005037 001126 CLR $ERTIL >:CLEAR ERROR TOTAL 


042316 013700 000042 $GET42: MOV a#42,R0 :;GET MONITOR ADDRESS 
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END OF PASS ROUTINE 


21 


042322 


0 
042342 


001405 


000240 


000137 
007756 
377 


BEQ 
RESET 
SENDAD: a 


$DOAGN: 


SRTNAD: .WORD 
377 000 S$ENULL: y ML. 


$DOAGN 
PC, (RO) 


a(PC)+ 
READY 
-1,°1,0 
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SEQ 0175 


; BRANCH IF NO MONITOR 
3;CLEAR THE WORLD 

;;G0 TO MONITOR 

3;SAVE ROOM 


sACT11 
3 RETURN 
;gNULL CHARACTER STRING 
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SUBROUTINES SEQ 0176 


-SBTTL SUBROUTINES 


PI al Rel t Ra Mad aRathelaDaRaiateleialctcialicleialatcteiaialetcieieiaielahaieieialelataieieiaialeieieisiaiaiaieiaieialcialel 


-SBTTL ERROR TYPEOUT ROUTINE 


;*THE ERROR TYPEOUT ROUTINE ASSEMBLES AND PRINTS INFORMATION 
: *REGARDING THE DETECTION OF AN ERROR AS FOLLOWS: 


UNIT NUMBER, TEST NUMBER, ERROR NUMBER AND PROGRAM COUNTER ARE 
: SPRINTED. ON THE FIRST LINE; 


1 
2 
3 
4 
5 
6 
7 
8 
10 ~ERROR MESSAGE is ASSEMBLED, FORMATTED AND PRINTED ON 
11 :*ONE OR MORE SUCCEEDING LINES; 
12 »PAIRED LINES OF ERROR. HEADERS AND ERROR DATA 
i? PARE PRINTED AFTER THE ERROR MESSAGE. 
15 042346 ERRTYP: 
16 042346 104414 SAVREG 
17 042350 032777 020000 136576 oH #SW13,aSWR : INHIBIT TYPEOUTS?? 
18 042356 001402 BEQ 1$ :NO! 
19 042360 000137 043076 JMP 21$ resi! 
20 s TYPE wnt NUMBER, TEST NUMBER, ERROR NUMBER, AND PROGRAM COUNTER 
21 042364 104401 001217 i$: YPE /SCRLE 
22 042370 104401 043112 TYPE “ERTYOO sTYPE “UNTA’ 
23 042374 013746 001234 MOV $UNIT,-(SP) >; SAVE SUNIT FOR TYPEOUT 
>: TYPE UNIT NUMBER 
042400 104403 TYPOS 3;G0 TYPE--OCTAL ASCII 
042402 003 .BYTE 3 >: TYPE 3 DIGIT(S) 
042403 00 “BYTE 0 ::SUPPRESS LEADING ZEROS 
042404 005037 043102 CLR TSTNMB ;LOAD TEST NUMBER FOR 
25 042410 013737 001226 043102 MOV $TESTN, TSTNMB 
26 042416 104401 043120 TYPE ER RTYOI sTYPE ‘'TSTA" 
27 042422 013746 043102 MOV TSTNMB,-(SP) ;;SAVE TSTNMB FOR TYPEOUT 
si: TYPE TEST NUMBER 
042426 104403 TYPOS 3;G0 TYPE--OCTAL ASCII 
042430 003 .BYTE 3 +: TYPE 3 DIGIT(S) 
042431 000 “BYTE 0 + SUPPRESS LEADING ZEROS 
28 042432 005037 043104 CLR ERRNMB ;LOAD _— NUMBER FOR 
29 042436 113737 001130 043104 MOVB $ITEMB,ERRNMB ;TYPEOUT 
30 042444 001406 BEQ 2$ *SKIP IF NO. ERROR CALLED 
31 042446 104401 043130 TYPE SERTYO2 [TYPE "'ERRA' 
32 042652 013746 043104 MOV ERRNMB ,-(SP) +: SAVE ERRNMB FOR TYPEOUT 
;: TYPE ERROR NUMBER 
042456 104403 TYPOS 3360 pein k ASCII 
042460 003 .BYTE 3 >: TYPE 3 DIGIT(S 
042461 000 “BYTE 0 ; SUPPRESS. LEADING ZEROS 
33 042462 104401 043137 2$: TYPE SERTYO3 ;TYPE_"'PC= 
34 042466 013746 001132 MOV SERRPC,-(SP) 3; SAVE SERRPC FOR TYPEOUT 
; TYPE PROGRAM COUNTER 
042472 104403 TYPOS 360 TYPE--OCTAL ASCII 
042474 006 -BYTE é :TYPE 6 DIGIT(S) 
042475 001 “BYTE 1 ‘TYPE LEADING ZEROS 
35 GENERATE POINTER TO ERROR TABLE “UNLESS ERROR NUMBER 1S 0 
36 042476 005737 043104 3$: ERRNMB WAS AN ERROR CALLED? 
37 042502 001575 Bro 21$ fen, 
38 042504 104401 001217 TYPE  oCRLF Wess TYPE CRLF 
39 042510 105037 043110 CLRB = BOTFLG [CLEAR BOT FLAG 
40 042514 105037 043111 CLRB CHRCNT *CLEAR CHARACTER COUNTER 
41 042520 013700 043104 MOV ERRNMB,RO :RO POINTS TO FIRST OF 
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ERROR TYPEOUT ROUTINE SEQ 0177 
42 042524 006300 ASL RO :FOUR ENTRIES IN ERROR , 
43 042526 006300 ASL RO : TABLE 
44 042530 006300 ASL RO 
45 042532 062700 001562 ADD #SERRTB-8. RO 
46 042536 011001 MOV (RO) ,R1 :R1 POINTS TO ERROR MESSAGE 
is 042540 001507 BEQ 13$ [BRANCH IF NO ERROR MESSAGE 

:TYPE THE ERROR MESSAGE 

<0 042542 012102 is: MOV (R1)+,R2 :R2 = ADDRESS OF NES SAGE STRING 
51 042544 001505 BEQ 12$ [BRANCH IF END OF MESSAGE 
$2 042546 010237 042714 MOV R2,11$ [LOAD ADDRESS OF STRING 
53 042552 005037 043106 CLR BOTADR [CLEAR BOT ADDRESS 

54 042556 112203 5$: MOVB = (R2) +, R3 :END OF STRING?? 

55 042560 001454 BEQ 10$ 

56 042562 122703 000015 CMPB ss CR, R3 : CARRIAGE RETURN?? 

57 042566 001003 BNE 6$ NO! 

58 042570 105037 043111 CLRB = CHRCNT SYES=CLEAR CHAR COUNT 

59 042574 000770 BR 5$ :GET NEXT CHARACTER 

0 042576 122703 000012 6$: CMPB so MLE R3 [LINE FEED?? 

61 042602 001765 BEQ 5$ SYES-GET NEXT CHARACTER 
62 042604 122703 000011 CMPB MHT,R3 sHORTZONTAL TAB?? 

63 042610 001007 BNE 8$ NO! ! 
64 042612 105237 043111 7$: INCB CHRCNT s;ADJUST CHARACTER COUNT 

65 042616 132737 000007 043111 BITB #7, CHRCNT 
66 042624 001372 BNE 7$ 
67 042626 000407 BR 9$ 
68 042630 105237 043111 8$: INCB CHRCNT ; INCREMENT CHARACTER COUNT 
69 042634 122703 000040 CMPB ow’ CRB : SPACE ?? 

70 042640 001002 BNE 9$ NO! ! 

71 042642 010237 043106 MOV R2,BOTADR :SAVE ADDRESS OF SPACE 

72 042646 122737 000100 043111 9$: CMPB ss #64., CHRCNT 7END OF LINE?? 

73 042654 103340 BHIS 5$ =NO!! 

74 042656 013704 043106 MOV BOTADR,R4 ;GET ADDRESS OF LAST SPACE 
75 042662 001007 BNE 90$ ‘BRANCH IF SPACE DETECTED 
76 042664 104401 001217 TYPE , SCRLF ; TYPE CRLF 

77 042670 105037 043111 CLRB —s- CHRCNT [CLEAR CHARACTER COUNT 

78 042674 013702 042714 MOV 11$,R2 :SET UP R2 FOR TESTING 

79 042700 000726 BR 5$ 
80 042702 105044 90$: CLRB 3s = (R4) :REPLACE SPACE 
81 042706 112737 177777 043110 MOVB  #-1,BOTFLG >SET BOT FLAG 
82 042712 104401 10$: TYPE :TYPE ERROR MESSAGE STRING 
83 042714 000000 11$: . WORD :STRING ADDRESS GOES HERE 
84 042716 105737 043110 TSTB  ~—s- BOTFLG [WAS STRING TRUNCATED? ? 
85 042722 001707 BEQ 4% sNO!! 

86 042724 104401 001217 TYPE “SCRLE *YES-TYPE CRLF 

87 042730 105037 043110 CLRB = BOTFLG [CLEAR BOT FLAG 

88 042734 105037 043111 CLRB = CHRCNT ‘CLEAR CHARACTER COUNT 

89 042740 013702 043106 MOV BOTADR,R2 [SETUP R2 FOR TESTING 

90 042744 010237 042714 MOV R2,11$ :SETUP 11$ FOR TYPING 

91 042750 112742 000040 MOVB so #"_,=(R2) ;RESTORE SPACE 

92 042754 105722 TSTB = (R24 ESTORE R2 

93 042756 000677 BR 54 STYPE REST OF STRING 

94 042760 12$: 

95 >TYPE ERROR HEADER AND ERROR DATA 

96 042760 13$: 

97 042760 016001 000002 MOV 2(R0),R1 :R1 POINTS TO ERROR HEADER TABLE 


98 042764 001444 BEQ 21% ;BRANCH IF NO HEADER 
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ERROR TYPEQUT ROUTINE SEQ 0178 
99 042766 104401 001217 TYPE » $CRLF ; (ASSUME _NO DATA) 
100 042772 016002 000004 MOV 4(RO),R2 zR2 POINTS TO DATA ADDRESS TABLE 
101 042776 016003 000006 MOV 6(RO) RS ;R3_ POINTS TO FORMAT TABLE 
102 043002 012137 043012 14$: MOV (R1)+,15$ ;PUT HEADER ADDRESS FOR TYPE 
103 043006 001433 BEQ 218 ;BRANCH IF END OF HEADERS 
104 ; (ASSUME END OF DATA) 
105 043010 104401 TYPE 
106 043012 000000 15$: «WORD 0 s;HEADER ADDRESS GOES HERE 
107 043014 104401 001217 TYPE - SCRLF 
108 043020 005702 TST R2 DATA WITH HEADER?? 
109 043022 001767 BEQ 14% sNO!! 
110 043024 012204 MOV (R2)+,R4 :R4 POINTS TO DATA ADDRESS 
111 043026 012305 MOV (R3)+,R5 3R5 POINTS TO FORMAT 
112 043030 105725 16$: TSTB (R5)+ ;WHAT KIND OF DATA?? 
113 043032 100 BMI 18$ ;BINARY 
114 043034 001403 BEQ 17$ ;OCTAL 
115 043036 013446 MOV @(R4)+,=(SP) DECIMAL 
116 043040 104405 TYPDS 
117 043042 000405 B 19$ 
118 043044 013446 17$: MOV @(R4)+,=(SP) 
119 043046 104402 TYPOC 
120 043050 000402 BR 19$ 
121 043052 013446 18$: MOV a(R4)+,-(SP) 
122 043054 104406 TYPBN 
123 043056 005714 19$: TST (R4) sMORE DATA?? 
124 043060 001403 BEQ 208 3NO!! 
125 043062 104401 043145. TYPE ,ERTYO4 sYES-TYPE 2 SPACES 
126 043066 000760 BR 16$ ;AND_ CONTINUE 
127 043070 104401 001217 208: TYPE » SCRLF ; TYPE ONE BLANK LINE 
128 043074 000742 BR 14% ;BEFORE NEXT HEADER 
129 043076 104415 21$: RESREG 
i 043100 000207 RTS PC 
132 043102 000000 TSTNMB: .WORD 0 ; TEST NUMBER 
133 043104 000000 ERRNMB: .WORD 0 ;ERROR NUMBER 
134 043106 000000 BOTADR: .WORD 0 ;BEGINNING OF TEXT ADDRESS 
135 043110 000 BOTFLG: .BYTE 0 ;BOT FLAG 
13 043111 000 CHRCNT: .BYTE 0 CHARACTER COUNT 
138 043112 125 116 111 ERTYOO: .ASCIZ @UNIT#O 
139 043120 054 040 124 ERTYO1: .ASCIZ @, TEST#O 
140 043130 054 040 105 ERTYO2: .ASCIZ a, ERR#O 
141 043137 054 040 120 ERTYO3: .ASCIZ a, PC=a 
142 043145 040 040 000 ERTY04: .ASCIZ a @ 
ae ~EVEN 
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WANA PONI NINN OO es we 


= 
52 


043150 


043150 


043166 
043172 


043226 


—~N— ww 
ooon 


1 
000137 
013737 


000000 044064 
000006 
000000 
000004 


044070 
044154 


000004 
043206 000000 
044054 


001376 044066 
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-SBTTL TEST PREPARATION MODULE 


; THIS MODULE PREPARES ¥> get gt ae be EXECUTION OF A TEST 

; REPORTING AN ERROR TO THE USER IF AN ERROR IS DETECTED. THE USER 
; SPECIFIES TASKS TO BE PERFORMED, WHICH THE MODULE EXECUTES 

; USING SUBROUTINES. 


s CALL: 
: JSR PC, TSTPRP 
: “WORD = NNNNNN TASK/VERIFY DESCRIPTOR 
: BR 7 RETURN HERE IF NO ERROR 
: NOP RETURN HERE IF ERROR 
: ERROR ERROR DEFINED BY MODULE 
; TASK/VERIFY DESCRIPTOR 
: T15=1 SELECT DEVICE AND VERIFY DEVICE IS AVAILABLE 
: BIT 14 = 1 CLEAR CONTROLLER AND SELECT DEVICE 
: BIT 13 (RESERVED FOR DRIVE CLEAR 
: BIT 12 = 1 PACK ACKNOWLEDGE IF VOLUME NOT VALID 
: B11 "1 =1 RECALIBRATE IF POSITIONING IN PROGRESS 
: BIT 9 
: BIT 8 
: BIT 7 
: BIT 6 = 1 VERIFY CONTROLLER CLEAR OPERATION 
: BIT 5 (RESERVED FOR DRIVE CLEAR) 
: BIT4 = 1 VERIFY PACK ACKNOWLEDGE 
: BIT 3 = 1 VERIFY RECALIBRATION 
: BIT 2 
: BIT 1 
; BIT 0 
TSTPRP: 
:STORE TASK DESCRIPTOR AND CLEAR USER'S ERROR CALL 
MOV a(SP) ,500$ :STORE DESCRIPTOR 
ADD #6, (SP) -SMOVE SP TO USERS ERROR CALL 
CLRB sa SP) “CLEAR ERROR CAL 
SUB #4, (SP) “MOVE SP TO NO ERROR RETURN 
JSR PC,GETSTS :SETUP TO READ ALL REGISTERS 
VSR C’GET “GET RMER2 
BR 15 ‘BR IF NO ERROR DETECTED 
BR 10$ :GET OVER ERROR NUMBER 
“WORD 0 TERROR DEFINED BY GET 4 UBROUT INE 
10$: ADD “XFER ERROR TO USER 


#4, (SP) 
MOVB = 10$-2, a( SP) “GET ERROR NUMBER. 
400% 


15$: MOV RMER21 ,505$ ;GET RMER2 AND SAVE FOR LATER 


CSL eeeeeetaraeeereeeeereeresereeeteneeeeeaeeeeeneKeeeenesenesesenes 


SEQ 0179 
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TEST PREPARATION MODULE SEQ 0180 


58 
59 043234 


; SELECT 1 ile AND VERIFY DEVICE 
1ST 500$ 


SELECT DEVIC IF B11 15 SET IN TASK 


005737 044064 ; T DEVICE?? 
60 043240 109014 BPL 30$ : 
62 043242 004737 052056 JSR PC ,DEVSEL :G0 SELECT DEVICE 
63 063246 000411 BR 30$ =NO ERROR = CONTINUE 
64 043250 000401 BR 20$ 
65 043252 000000 WORD ZERROR NUMBER FROM DEVSEL 
66 043254 062716 000004 208: ADD #4, (SP) [TRANSFER ERROR TO USER 
67 043260 113776 043252 000000 MOVB = 20$=2,a( SP) 
68 043266 000137 044054 JMP 400$ 
70 SRR AHEERAHEE eee eee kere kaneeeeheeeeekeeeekeeeeeeeeeeees 
71 “CLEAR CONTROLLER IF BIT 14 1S SET IN TASK 
72 043272 30s: 
73 043272 032737 040000 044064 BIT #B1T14,500$ :CLEAR CONTROLLER?? 
2 043300 001451 BEQ 120$ NO! ! 
76 043302 004737 053530 JSR PC,CNTCLR :G0 CLEAR CONTROLLER 
77 043306 000411 BR 60$ :CONTINUE - NO ERROR 
78 043310 000401 BR 50$ 
79 043312 000000 40$: ~WORD 0 ;ERROR NUMBER FROM CNTCLR 
80 043314 062716 000004 50$: ADD #4,(SP) ; TRANSFER ERROR TO USER 
81 043320 113776 043312 000000 MOVB =- 40$,, (SP) 
82 043326 000137 044054 JMP 400$ 
84 Pee eeeeeeeekeeeeeeeeeeeeeee teeta neeteeeeeeeeeeeeeeeeeeeeeeeeee 
85 “VERIFY CONTROLLER CLEAR IF BIT6 SET IN TASK 
86 043332 60$: 
87 043332 032737 000100 044064 BIT #8116, 5008 SVERIFY2?? 
88 043340 001431 BEQ 120$ NO! ! 
90 043342 004737 044154 JSR PC GET :G0 GET STATUS 
91 043346 000411 BR 90$ ‘NO ERROR GETTING STATUS 
92 043350 000401 BR 80$ 
93 043352 000000 70$: ~ WORD ;ERROR FROM GETTING STATUS 
94 043354 062716 000004 80$: ADD 4, (SP) : TRANSFER ERROR TO USER 
95 043360 113776 043352 000000 MOVB 708. a(SP) 
96 043366 000137 044054 JMP 400$ 
98 043372 004737 053646 90$: JSR PC, CLRSTS :GO VERIFY STATUS CLEAR 
99 043376 000412 BR 120$ ‘NO ERROR IN CLEAR 
100 043400 000401 1108 
10’ 043402 000000 100$:  .WORD 0 sERROR IN STATUS CLEAR 
102 043404 005726 110$: TST (SP)+ [STRIP RETURN ADDRESS TO 
103 043406 062716 000004 ADD #4, (SP) :SUBROUTINE AND TRANSFER 
104 043412 113776 043402 000000 MOVB 1008, a(sP) ‘ERROR TO USER 
105 043420 000137 044054 JMP 
107 peeeeteeeeeeeeeeeereeeetereeeeeeeeeekeeeReeeeeeeeeeeneeeenerened 
108 ZEXECUTE PACK ACKNOWLEDGE IF BIT12 SET IN TASK AND VOLUME IS 
110 043424 1208: 
111 043424 032737 010000 044064 BIT #B1112,500% :PACK ACKNOWLEDGE ?? 
Ie 043432 001501 BEQ 240 NO! ! 
114 043634 006737 044154 JSR PC GET 


—o 
mm 
Yu 


MMAO 

T PR 
115 063440 
116 043442 
117 043444 
118 043446 
119 043452 
bese 
122 043464 
123 043472 
124 
125 043474 
126 043502 
127 043510 
128 043516 
129 043522 
130 043524 
131 043526 
132 043550 
133 043534 
134 043542 
135 
136 043544 
137 
138 
139 
140 043550 
141 043556 
HP 
143 043560 
144 043564 
145 043566 
146 043570 
147 043572 
148 043576 
149 043604 
150 

151 043606 
152 043612 
153 043614 
154 043616 
155 043620 
156 043622 
157 043626 
158 043634 
159 
160 
161 
162 
163 043636 
164 043636 
165 043644 
166 
167 043646 
168 043652 
169 043654 
170 043656 
171 043660 
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113776 


000523 
004737 


000507 


032737 
001505 


004737 


062716 
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EPARATION MODULE 


044054 
000100 


000023 


044424 


000004 
043526 


044766 


000020 


044154 
000004 
043570 


054526 


000004 
043616 


004000 


044154 


000004 


Ld 
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000000 


001346 


001410 
001543 
001544 
000000 


044064 


000000 


000000 


044064 


14 
15-2 


BR 150$ :NO ERROR GETTING RMDS 
BR 140$ 
1308: «WORD 0 
140$: ADD #4, (SP) ; TRANSFER ERROR TO USER 
MOVB =: 1308, a( SP) 
JMP 400$ 
150$: BIT #VV,RMDS1 :1S VOLUME VALID?? 
BNE 2408 YES! ! 
MOV #PAKACK!GO,RMCS10 :LOAD PACK ACK COMMAND 
MOVB &#RMCSI1,PUTINX ;SETUP REGISTER INDEX TABLE 
MOVB #200, PUTINX#1 
JSR C,PUT :G0 WRITE COMMAND 
BR 186$ ‘NO ERROR LOADING REGISTER 
BR 170$ 
160$:  .WORD 0 sERROR FROM PUT SUB 
170$: ADD (SP) [TRANSFER ERROR TO USER 
MOVB «160%, a(SP) 
BR 00$ 
180$: JSR PC, TIMOUT :WAIT FOR COMMAND TO COMPLETE 


s eee eekeaeeeeeeeeeereeeeteeeteeeeAKeeeeeKeeeeneneneeeeeneeneeeee 
;VERIFY PACK ACKNOWLEDGE IF #B1T4 SET IN TASK 

BIT #B8114,500$ ;VERIFY PACK ACKNOWLEDGE ?? 

BEQ 240 zNO!! 


JSR PC,GET :G0 GET STATUS 
BR 21068 :NO ERROR GETTING STATUS 
BR 200$ 
190$:  .WORD 0 sERROR FROM GET SUB 
2008: ADD #4, (SP) : TRANSFER ERROR TO USER 
MOVB = 190$,a( SP) 
BR 400$ 
2108: JSR PC, ACKSTS :G0 CHECK ACKNOWLEDGE 
BR 2408 =NO ERROR 
BR 230$ 
220$: .WORD O :PACK ACKNOWLEDGE ERROR 
230$: TST (SP)¢+ SSTRIP RETURN TO SUB AND 
ADD #4, (SP [TRANSFER ERROR TO USER 


'WERARBAARAAALAAAAAAASA AAA ASASAASAESASERERSSERE SERRE EERE SERRE RRR RRR ERROR 


;RECALIBRATE DRIVE If BIT 11 1S SET IN TASK AND "'SKI'' IS SET 


OR PIP’ IS ACTIVE. 
5408: 
BIT #B1T11,500$ ;RECALIBRATE?? 
BEQ 4108 =NO!! 
JSR PC GET :GO GET RMDS 
BR 270% [NO ERROR GETTING RMDS 
R 260$ 
250$:  .WORD 0 ZERROR FROM GET SUB 
2608: ADD #4, (SP) ‘TRANSFER ERROR TO USER 


N 14 
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CZRMMAO sa $44 oh FCTNL TST 1 3 


TEST PREPARATION MODULE SEQ 0182 
172 043664 113776 043656 000000 MOVB 2508, a(SP) 
173 043672 000470 BR 400$ 
175 043674 032737 040000 044066 2708: BIT #SK1,505$ sWAS SKI SET ? 
176 043702 001004 BNE :YES, GO RECALIBRATE 
177 043706 032737 020000 001346 BIT #PIP,RMDSI [I$ PIP ACTIVE?? 
178 043712 001462 BEQ 410$ NO! ! 
180 043714 012737 000007 001410 2808: Mov #RECAL!GO,RMCS10 :LOAD RECALIBRATE COMMAND 
181 043722 112737 000000 001543 MOVB  #RMCS1.PUTINX ;AND REGISTER INDEX 
182 043730 112737 000200 001544 MOVB #200,PUTINX+1 
183 043736 004737 044424 JSR PC, PUT :GO0 ISSUE RECALIBRATE 
184 043742 000410 BR 300$ [NO ERROR 
185 043744 000401 BR 290$ 
186 043746 000000 .WORD 0 ZERROR IN REGISTER TRANSFER 
187 043750 062716 000004 2908: ADD #4, (SP) ; TRANSFER ERROR TO USER 
188 043754 113776 043746 000000 MOVB  290$-2,a(SP) 
M4 043762 000434 BR 400$ 
193 043764 004737 044766 300$: JSR PC,TIMOUT ;WAIT FOR COMPLETION 
193 ST RRR EEAEEEEAEEEEEETERERRKKHKETAREKA eee Kee eee eee eee 
194 ;VERIFY RECALIBRATE IF BIT 3 SET IN TASK 
195 043770 032737 000010 044064 BIT #B113,500$ ZVERIFY RECALIBRATE?? 
196 043776 001430 BEQ $ NO! ! 
198 044000 004737 044154 JSR PC,GET 3G0 GET STATUS 
199 044004 000410 BR 330$ sNO ERROR GETTING STATUS 
200 044006 000401 BR 3208 
201 044010 000000 310$: ~ WORD 0 sERROR FROM GET 
202 044012 062716 000004 3208: ADD #4, (SP) ; TRANSFER ERROR TO USER 
203 044016 113776 044010 000000 MOVB 310$,a(SP) 
204 044024 000413 BR 4008 
206 044026 004737 055322 330$: JSR PC,RCLSTS :G0 CHECK RECALIBRATE 
207 044032 000412 BR 410% ;NO ERROR DURING RECALIBRATE 
208 044034 000401 BR 350$ 
209 044036 000000 340$:  . WORD 0 sERROR DURING RECALIBRATE 
210 044040 005726 350$: TST (SP)+ ‘STRIP RETURN TO SUB AND 
211 044042 062716 000004 ADD #4,(SP) ; TRANSFER ERROR TO USER 
212 0440466 113776 044036 000000 MOVB  340$,a(SP) 
213 044054 162716 000002 400$: SUB #2, (SP) sMOVE SP BACK BEFORE ERROR 
214 044060 000240 410$: NOP 
218 044062 000207 RTS PC ;RETURN TO USER 
217 044064 000000 500$: - WORD 0 s TASK/VERIFY DESCRIPTOR 
sig 044066 000000 505$: ~ WORD 0 sCONTAINS RMER2 
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-SBTTL GET STATUS SUBROUTINE 


15 
16 


; THIS SUBROUTINE SETS UP THE ‘’GET INDEX TABLE*’ AND THE ‘'GET 
;BUFFER'’ FOR READING ALL esreren REGISTERS VIA THE GET SUBROUTINE 


;AND THEN RETURNS TO THE USER. 


=CALL: JSR PC,GETSTS 
; 277 
GETSTS: 

MOV RO,-(SP) 


MOV #GETINX,RO 
MOV WRMEC214+2,R1 
MOV WRMEC? ,R2 
2$: MOVB R2,(RO)+ 
CLR -(R1) 
3$: SUB #2,R2 
BM] $ 
CMP #RMDB ,R2 
BNE $ 
CLR -(R1) 
BR 3 
4$: MOVB #200,(RO)+ 
MOV (SP)+,R2 
MOV (SP)+,R1 
MOV (SP)+,RO 
NOP 
RTS PC 


RETURN HERE 


3;PUSH RO ON STACK 
:;PUSH R1 ON STACK 
; ;PUSH R2 ON STACK 

iR ADDRESS OF INDEX TABLE 
iRI ADDRESS - GET BUFFER 
R2 = REGISTER INDE 
SWRITE REGISTER INDEX IN TABLE 
;CLEAR CORRESPONDING LOCATION 
:DECREMENT TO NEXT INDEX 
: BRANCH OUT IF DONE 

:DONT WRITE RMDB INDEX 


;WRITE TERMINATOR 

3;POP STACK INTO R2 
:;POP STACK INTO R1 
szPOP STACK INTO RO 


SEQ 0183 


CZRMMAO RMOS/3/2 FCTNL TST 1 


GET SUBROUTINE 
1 


SOWNA MEW HO OONA UF WN HOO ONAUE Wr 


WOO POEUN — ss Ss es 


31 044154 


51 044314 


000240 


Qoooooocooco0coo 


i. osdpapab cot ibis ae ot ee ok ee 


o—— sO — 
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600000 
000004 


000004 


004000 


000004 
000112 


177700 
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000004 


0 
001176 


000016 
006016 


15 
17 


-SBTTL GE1 SUBROUTINE 


sTHIS SUBROUTINE we THE REGISTERS WHICH ARE LISTED IN THE 


:"GET_INDEX TABL 


D STORES THEIR VALUES IN THE ok. i 


[LOCATION IN THE “Get REGISTER fk gi FOR EXAM 
sENT RY OF 04 IN THE TABLE WILL CAUSE THE SUBROUTINE 10 
;READ "'RMBA’’ AND STORE ITS CONTENTS AT THE geet IN 
THE BUFFER ASSIGNED TO THAT REGISTER. THE NUMBER OF 
REGISTERS TO BE READ IS VARIABLE FROM 1 TO OD: THE INDEX 
ABLE MUST BE TERMINATED WITH A Spada BYTE (200) 
Sun Ch SHOULD FOLLOW THE LAST ENTRY 


SUBROUTINE CALL: 


341) "GET INDEX TABLE’’ HAS BEEN LOADED WITH oe INDEX 
; VALUES AND TERMINATED WITH A CONTROL BYTE 
3 (2) "GET INPUT BUFFER’’ IS AVAILABLE FOR USE. 


OTE T 
eENTRIES IN io ogg CORRESPONDING 


RETURN HERE IF NO ERROR FOUND 
RETURN HERE IF ANY ERROR FOUND 
SUB DEFINES ERROR NUMBER 


;CLEAR ERROR NUMBER IN USER'S 
sERROR CALL 


3z;PUSH RO ON STACK 
72PUSH R1 ON STACK 
33;PUSH R2 ON STACK 
37PUSH R3 ON STACK 
3z;PUSH R4& ON STACK 
3:PUSH ERRVEC ON STACK 
3:PUSH ERRVEC+2 CN STACK 


;SETUP FOR TIMEOUT 

:GET "'NED"® Hees. 
:GET ‘‘DVA'’ STATUS 

: DEVICE AVAILABLE?? 


WRITE re NUMBER IN USER'S 
ERROR CAL 


;DONE?? 


; UNUSED LOCATIONS, I.E. 
: TO REGISTERS NOT READ, ARE NOT CHANGED.) 
7(3) «JSR PC GET 
: NOP 
; ERROR 
; 27? 
[RO = REGISTER BASE ADDRESS 
=R1 = REGISTER ADDRESS 
:R2 = BUFFER BASE ADDRESS 
[R3 = BUFFER ADDRESS 
:R4 = POINTER TO REGISTER INDEX 
GET NOP 
ADD #4, (SP) 
CLRB = a SP) 
SUB #4, (SP) 
MOV RO, -(SP) 
MOV R1,-(SP) 
MOV R2,-(SP) 
MOV R3,~(SP) 
MOV R4.-(SP) 
MO! ERRVEC,-(SP) 
MOV ERRVEC4+2,-(SP) 
MOV $BASE RO 
MOV #GETBUF ,R2 
MOV #GETINX.R4G 
MOV #5$, ERRVEC 
MOV #PR6 ERRVEC+2 
1$ MOV RAC SSEROY STMPO 
MOV RMCS1(RO).$TMP1 
BIT #DVA,STMPI 
BNE 38 
ADD 16(SP) 
MOVB wiioe a16(SP) 
BR 4 
3$: TSTB —s- (RG) 
BM! 9$ 


MOVB (RG) ,R1 
BIC #*CLOXMSK RI 


ESs!! 


a 
:R1 = REGISTER ADDRESS 
CLEAR ANY SIGN EXTENSION 


SEQ 0184 


CZRMMAQ atid FCTNL TST 1 


GET SUBROUTIN 
52 044320 


71 044422 


oooo oo°o-o]——-—-00 DO00-o 
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177700 
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000004 
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000016 
000016 
000016 


7$: 
8$: 


9$: 


D 15 
17+ 


RO,R1 
(RG)+,R3 
#*CIOXMSK,R3 
R2,R 


(RI), (R3) 
3$ 


P)+,ERRVEC+2 
P)+,ERRVEC 
P)+,R4 


1 


;R3_= STORAGE ADDRESS FOR REGISTER 
:CLEAR ANY SIGN EXTENSION 


sREAD REGISTER 


sRESTORE STACK 
WRITE ERROR NUMBER IN 
;USER'S ERROR CALL 


; DONE ,CLEARING?? 
YES! 


CLEAR — STORAGE 
; LOCATION 


33:POP so tae INTO ERRVEC+2 
STACK INTO ERRVEC 

3;POP STACK INTO R4 

3;POP STACK INTO R3 

3zPOP STACK INTO R2 

:zPOP STACK INTO R1 

3zPOP STACK INTO RO 

;RETURN 


SEQ 0185 


15 
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PUT SUBROUTINE SEQ 0186 


} .SBTTL PUT SUBROUTINE 
3 i ]HIS SUBROUTINE WRITES THE REGISTERS WHICH ARE LISTED IN THE 
4 ;"'PUT INDEX TABLE’ WITH THE CONTENTS OF THE CORRESPONDING 
5 ZLOCATION IN THE PUT REGISTER BUFFER’. THE NUMBER OF 
« SREGISTERS WRITTEN Is VARIABLE; THE INDEX TABLE MUST 
? 7BE TERMINATED WITH A CONTROL BYTE (200) WHICH SHOULD 
8 sFOLLOW THE LAST ENTRY. 
+ ; SUBROUTINE CALL: 
12 (1) “PUT INDEX TABLE" HAS BEEN LOADED WITH INDEX VALUES 
13 ; OF REGISTERS TO BE WRITT 
14 :(2) "PUT REGISTER BUFFER” CONTAINS CONTENTS OF EACH 
15 : REGISTER TO BE WRITTEN 
16 :(3) JSR PC, PUT 
17 ; BR 273 RETURN HERE IF NO ERROR FOUND 
18 : NOP RETURN HERE IF ANY ERROR FOUND 
19 : ERROR SUB DEFINES ERROR NUMBER 
20 : 72? 
21 : 
22 [RO = REGISTER BASE ADDRESS 
23 =R1 = REGISTER ADDRESS 
24 :R2 = BUFFER BASE ADDRESS 
25 =R3 = BUFFER ADDRESS 
$$ :R4 = POINTER TO REGISTER INDEX 
28 044424 000240 PUT NOP 
29 044426 010046 MOV RO,-(SP) ::PUSH RO ON STACK 
044430 010146 MOV R1,-(SP) >:PUSH R1 ON STACK 
044432 010246 MOV R2,-(SP) 3z;PUSH R2 ON STACK 
044434 010346 MOV R3,-(SP) ;;PUSH R3 ON STACK 
044436 010446 MOV R4,-(SP) s;PUSH R4& ON STACK 
044440 013746 000004 MOV ERRVEC,-(SP) > PUSH ERRVEC ON STACK 
044444 013746 000006 MOV ERRVEC+2,~-(SP) :;PUSH ERRVEC+2 ON STACK 
30 044450 013700 001276 MOV $BASE, 
31 044454 012702 001410 MOV #PUTBUF ,R2 
32 044460 012704 001543 MOV #PUTINX.R4 
33 044464 012737 044574 000004 MOV #5$, ERRVEC :SETUP FOR TIMEOUT 
34 044472 012737 000300 000006 MOV #PR6 ERRVEC+2 
35 044560 016037 000010 001174 18: MOV RMCSO(RO),$TMPO ;GET ‘'NED"' STATUS 
36 0445 016037 000000 001176 MOV RMCS1(RO),STMP1 ;GET ‘'DVA'' STATU 
37 044514 032737 004000 001176 BIT #DVA,STMPT :DEVICE AVAILABLE? 
38 044522 001007 BNE 3$ YES! 
39 044524 062766 000004 000016 ADD #4,16(SP) CRITE ERROR NUMBER IN 
40 044532 112776 000112 000016 MOVB nie, a16(SP) [USER'S ERROR CALL 
41 044540 000424 BR 
42 044542 105714 3$: TSTB aad :DONE?? 
43 046544 100425 BM] 9$ YES! 
64 044546 111401 MOVB = (RG), R1 R1 = REGISTER ADDRESS 
45 044550 042701 177700 BIC #°CIOXMSK,R [CLEAR ANY SIGN EXTENSION 
46 044554 060001 ADD RO,R1 
47 044556 111403 MOVB = (RG) RB :R3 = STORAGE ADDRESS 
48 044560 042703 177700 BIC #°CIOXMSK,R3 =: CLEAR ANY SIGN EXTENSION 
49 044564 060203 ADD R2,R3 
50 044566 011311 MOV (R3),(R1) :WRITE REGISTER 
$1 044570 105724 TSTB = (R&) 4 :ADJUST REGISTER POINTER 





CZRMMAO iF he FCTNL TST 1 


PUT SUBROUTI™ 
2¢ 044572 
5 
54 044574 
55 044576 
56 044604 
4 044612 


59 044620 


60 044642 
61 


000763 
022626 


000004 
000007 
000002 


000006 
000004 


000016 


000016 
000016 7$: 
9$: 


BR 


F 1 
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+2 


sADJUST STACK 


;WRITE ERROR NUMBER IN 


USER'S ERROR CALL 


;;POP STACK 


:;POP STACK IN 


3;POP STACK 
3:POP STACK 
;;POP STACK 
3 ;POP STACK 
;RETURN 


;;POP STACK Savece ERRVEC +2 


INTO ERR 

TO R4 
INTO R3 
INTO R2 
INTO R1 
INTO RO 


SEQ 0187 


CONAUE WR ODOOnNOUS 
Oo 
Pd 
P 
~N 
— 
- 


19 044764 
20 


CZRMMAO RMOS/3/2 FCTNL 
SIZE CLOCK SUBROUTINE 


Gooocooooo0o°ooo 
Oo SS = [OO Ss Ss 


000404 
2 


012637 
012637 
000207 


TST 1 


000004 


134600 
044744 
134546 
000002 


000006 
000004 


MACRO V03.01 11-APR-80 13:04:53 PAG 


000004 


G 1 
E 1 


-SBTTL SIZE CLOCK SUBROUTINE 


SIZCLK: 


2$: 
3$: 


ERRVEC,-(SP) 


#100,CLKVCT 
ACLKADR 
3$ 


(SPDs, (SP) 
#2$, ERRVEC 
WiPS5CO" CLKADR 
#104, CLKVCT 
ACLKADR 

3$ 


(SP)+,(SP)+ 
#2,4(SP) 


(SP)+,ERRVEC+2 
ag )+, ERRVEC 


; PUSH wee ON STACK 
H ERRVEC*+2 ON STACK 
;SET UP ik “BUS TIMEOUT 


;LOAD ADDRESSES FOR KWIT-L 


sTEST FOR KWI1l-L PRESENT 
YES = KWil-L IS PRESENT 
TREST ORE SP 
;SET UP FOR BUS TIMEOUT 
;LOAD ADDRESSES FOR KW11-P CLOCK 


TEST FOR KWi1-P PRESENT 
YES = KWI11-P IS PRESENT 
RESTORE SP 

;MOVE RETURN TO ERROR 


POP STACK INTO ERRVEC+2 
7 POP STACK INTO ERRVEC 
;RETURN TO USER 


SEQ 0188 


CONOUE WR 


WWWANWANIWAIPSI PIP PEPY POPPY Ss Ss 
WN — SO OONOVFWN—OOONC NEWR-O”O 


Ww 
> 


Hoos ap Bae | FCTNL 
TIMEOUT SUBROUTINE 

044766 
044766 010046 
044770 010146 
044772 010246 
044774 013746 
045000 013746 
045004 012737 
045012 012737 
045020 013700 
045024 013701 
045030 012702 
045034 020127 
045046 601003 
045042 012761 
045050 012711 
045054 016046 
045060 042716 
045064 022726 
045070 001420 
045072 032711 
045076 001766 
045100 005302 
045102 001354 
045104 000412 
045106 022626 
045110 062766 
045116 112776 
045124 162766 
045132 
045132 012637 
045136 012637 
045142 012602 
045144 012601 
045146 012600 
045150 000207 


36 


TST 1 


000004 


172540 


000001 
000005 


000000 
177576 
000200 


000200 


000004 
000007 
000002 


000006 
000004 


H 15 
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000004 
000006 


C90002 


000012 
000012 
000012 


~SBTTL 


;GREATER THAN APPROX. 


CALL: 


TIMOUT: — 


2$: 
3$: 


4$: 


5$: 


TIMEOUT SUBROUTINE 
;THIS SUBROUTINE WAITS FOR RDY 


JSR 
??? 


PC,TIMOUT 
RO,-(SP) 


ERRVEC,-(SP) 
ERRVEC+2,-(SP) 
#4$,ERRVEC 
#PR6,ERRVEC#+2 
SBASE ,RO 
CLKADR,R1 


#30.,R 
R1,#172540 

2$ 

#1,2(R 
#Bi12'BI10, (R1) 


RMCS1(RO) ,-(SP) 


#*C<RDY!GO>, (SP) 


ARDY, (SP)+ 
5$ 
> gael at 


(SP)+, ERRVEC+2 
(SP)+,ERRVEC 
it = 


1 AND GO = 0 OR FOR A TIMEOUT 


500 MSEC AND THEN RETURNS. 


RETURN HERE 


hse RO ON STACK 
7zPUSH R1 ON STACK 
3;PUSH R2 ON STACK 
37PUSH ERRVEC ON STACK 
3;PUSH ERRVEC+2 ON STACK 
;SETUP FOR BUS TIMEOUT - 04 TRAP 


eaten be ADDRESS 

=CLOCK ADDRESS 
iR2s NUMBER OF ee CYCLES 
iKW11~ -P CLOCK?? 


SET COUNTER 
START COUNTER 


GET STATUS 

tts 1, G0=0?? 

:TImeR DONE ?? 

DEC “NUMBER OF CYCLES 


;CONTINUE IF NOT DONE 
:"'RDY'' DID NOT SET OR "'GO'’ DID NOT RESET 


:WITHIN 500 MSEC AFTER THE COMMAND WAS ISSUED. 


ADJUST STACK 
MOVE SP TO USER'S CALL 
‘WRITE ERROR NUMBER 


;POP STACK INTO ERRVEC+42 
3;POP STACK INTO ERRVEC 
:;POP STACK INTO R2 
3;POP STACK INTO RI 
3;POP STACK INTO RO 
;RETURN TO USER 


SEQ 0189 


CZRMMAQ RMOS/3/2 FCTNL TST 1 
ERROR CHECK SUBROUTINES 


NAAN ANIWNWIR PO POMPOM NY PO NY DY — os es ss ss Ss es 
BOEWN =| OOODNAMNEWNH S$ OOMNAUEWRHODODNAU EWR 


41 045152 


44 045152 062716 
45 045156 105076 000000 
46 045162 162716 000004 


47 

48 

49 045166 013737 001344 
50 045174 042737 177770 
51 045202 013737 001234 
52 045210 042737 177770 
7 045216 123737 001140 
55 045224 001415 

56 045226 062716 000004 
57 045232 112776 000001 
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5 
1 


»SBTTL ERROR CHECK SUBROUTINES 


RRR AREER AERA EEE THAR eeHAeeeeeKAeekeeeeeeeeees 


-SBTTL PRIMARY ERROR CHECK SUBROUTINE 


;THE PURPOSE OF THIS SUBROUTINE IS TO VERIFY THAT STATUS IS VALID AND 
; THAT FURTHER ERROR AND STATUS CHECKING SHOULD BE PERFORMED. THE 
: FOLLOWING CHECKS ARE MADE: 


CORRECT UNIT IS SELECTED, 1.€., THE UNIT SELECT BITS OF RMCS2 
(8118 0-2) EQUAL THE UNIT BEING TESTED: 


-SELECTED UNIT IS AVAILABLE, 1.€. 
¢ AND NED (BIT 12 OF RMCS2) IS RESET; 


~LAST COMMAND WAS COMPLETED, 1.£., THE MASSBUS CONTROLLER IS 
SREADY (BIT 7 OF RMCS1) AND THE GO BIT 1S RESET (BIT 0 OF RMCS1) OR THE 
sDRIVE READY BIT (BIT 7 OF RMDS) IS SET. 
i¥ .. win .” ERROR OCCURRED WHEN READING REMOTE REGISTERS, 
: -NO PARITY ony _OCCURRED WHEN WRITING REMOTE REGISTERS, 
1.€., PAR = 0, OR, = DPE = 1 


, DVA (BIT 11 OF RMCS1) IS SET 


; THE SUBROUTINE ASSUMES THAT: 


-STATUS HAS BEEN STORED IN THE REGISTER INPUT BUFFER, 
IN PARTICULAR, RMCS1, RMCS2 AND RMDS HAVE wi STORED IN THEIR 
;CORRESPONDING LOCATIONS OF THE ‘'GET’' BUFFER 


: .(SUNIT) CONTAINS THE DRIVE NUMBER 
[THE SUBROUTINE IS CALLED AS FOLLOWS: 

7(1) JSR PC,PRIERR 

: BR 229 RETURN HERE IF NO ERROR 

: NOP RETURN HERE TO REPORT AN ERROR 

: ERROR ERROR NUMBER DEFINED BY SUB 

: JSR PC,a(SP)+ GO BACK TO SUB FOR MORE ERROR CHECKS 
: 27? RETURN HERE IF NO MORE ERRORS 
PRIERR: 

CLEAR USER" S ERROR CALL 

#4, (SP) :MOVE (SP) TO ERROR CALL 


CURE a($P) ;CLEAR ERROR NUMBER 
SUB #4, (SP) :MOVE (SP) TO NO ERROR RETURN 


REPORT AN ERROR IF THE WRONG UNIT IS SELECTED 
MOV ;CORRECT UNIT SELECTED?? 


Manes DATA FOR TYPEOUT 
"COMPARE Lt AND RECEIVED 


BIC #*CUNTMSK , $GDD 
CMPB SGDDAT, SBODAT. 


:DRIVE NUMBER 
BEQ 1$ 3 VES! 
ADD a4, (SP) 
MOVB #1,a(SP) sERROR 1 


SEQ 0190 


CZRMMAO RMOS/3/2 FCTNL TST 1 
PRIMARY ERROR CHECK SUBROUTINE 


58 045240 


85 045402 


88 945402 


a a ee ed ed ed ed ae dd ed 
—— eS = SOOOCooocCco°oo 
FW —-OOOnO UW -2-O 


162716 
0 


o-o—]—GDOoo0dco—-co0000o 
Oooo —f ——OWwWwW SO SS Ow 
OOM &NMNMNWW— PUP PW 


000002 
000010 
045774 


004000 
001334 


010000 
001344 


000002 


000010 


000200 
001334 


000002 
000010 


000001 
000200 
001334 


000002 
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;MOVE SP TO RETURN FOR ERROR 
;REPORT WRONG UNIT SELECTED 
sRESTORE (SP) 


SKIP OTHER CHECKS 


REPORT AN ERROR IF es Ps are 1S NOT AVAILABLE OR IF 


; THE seit ti 1S wow 
B ADVA 


SUB 
JSR 
SUB 
NOP 
JMP 
1$: 
001334 IT 
BNE 
001140 MOV 
001140 BIS 
001142 MOV 
ADD 
000000 MOVB 
001344 BIT 
BEQ 
001140 MOV 
001142 MOV 
001140 BIC 
000000 MOVB 
2s: SUB 
JSR 
SUB 
NOP 
BR 
5$: 
;REPORT 
001334 IT 
BNE 
001140 MOV 
001140 BIS 
001140 BIC 
001142 MOV 
ADD 
000000 MOVB 
SUB 
JSR 
SUB 
NOP 
BR 
7$: 
;REPORT 
001334 IT 
BEQ 
001346 BIT 
BNE 
001140 MOV 
001140 BIC 
001142 MOV 
ADD 
000000 MOVB 
SUB 
JSR 


RM mestt 


RMCS11,$GDDAT 
#DVA,$GDDAT 
RMCS11,$BDDAT 
#4, (SP) 
#2.a(SP) 
#NED,RMCS21 
2$ 


RMCS21 ,$GDDAT 


PC, ;a(SP)¢ 
#10, (SP) 


10$ 


$ 
RMCS11,$GDDAT 
#RDY ,SGDDAT 


4+ Hy AVAILABLE ?? 
EXPECTED STATUS 


RECEIVED STATUS 

sERROR #2 

WAS NED SET?? 

:NO!! 

sEXPECTED STATUS 

sRECEIVED STATUS 

;YES = CHANGE ERROR NUMBER 
:MOVE SP TO RETURN FOR ERROR 
;REPORT DEVICE NOT AVAILABLE 
RESTORE (SP) 


SKIP OTHER CHECKS 


AN ERROR IF MASSBUS CONTROLLER IS NOT READY 
B #RDY,RMCSI1 


ee READY?? 
‘EXPECTED STATUS 


MSC! TRE! MCPE!GO,S$GDDAT 


RMCS11,$BDDAT 


’ 


gh oRMDS1 
RMCS11,$GDDAT 


RECEIVED STATUS 

sERROR #4 

:MOVE SP TO RETURN FOR ERROR 
REPORT CONTROLLER NOT READY 
RESTORE (SP) 


SKIP OTHER CHECKS 


AN ERROR IF GO 1S NOT ZERO AND ois 1S NOT ONE 
B id MCS11 he RESET? 


YES! 
:DRIVE READY ?? 
sve! 
‘EXPECTED STATUS 


#SC' TRE 'MCPE'!GO,$GDDAT 


veg HP $BDDAT 
# pj 


PC. a(SP)¢ 


sRECEIVED STATUS 


sERROR #5 
:MOVE SP TO RETURN FOR ERROR 
REPORT DRIVE NOT READY 


SEQ 0191 


CZRMMAO RMOS/3/2 FCTNL TST 1 
PRIMARY ERROR CHECK SUBROUTINE 


115 atte: 34 000010 


116 045560 00024 

117 045562 000504 

118 045564 

119 

120 

121 

122 045564 032737 020000 
123 045572 001425 

124 045574 013737 001334 
125 045602 042737 160001 
126 045610 013737 001334 
127 045616 062716 000004 
128 045622 112776 000013 
129 045630 162716 000002 
130 045634 004736 

131 045636 162716 000010 
132 045642 000240 

133 045644 000453 

134 045646 

135 

136 

137 045646 032737 000010 
138 045654 001451 

139 045656 032737 000010 
140 045664 001045 

141 045666 032737 000010 
142 045674 001413 

143 045676 010046 

144 045700 012700 001543 
145 045704 122710 000014 
146 045710 001002 

147 045712 012600 

148 045714 000431 

149 045716 105720 

150 045720 100371 

151 045722 012600 

152 045724 013737 001350 
153 045732 042737 000010 
154 045740 013737 001350 
155 045746 062716 000004 
156 045752 112776 000050 
157 045760 162716 000002 
158 045764 004736 

159 045766 162716 000010 
160 045772 000240 

161 045774 962716 000010 
162 046000 000240 

ee 046002 000207 
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SUB #10, (SP) SRESTORE (SP) 
NOP 
BR 10$ 
8$: 
;REPORT AN ERROR IF THE RH CONTROLLER DETECTED BAD 
‘PARITY ON THE NASSBUS CONTROL BUS 
001334 BIT WMCPE,RMCSII PARITY ERROR ?? 
BEQ 9$ NO! ! 
001140 MOV RMCS11,$GDDAT EXBECTED STATUS 
001140 BIC SCL TRE LACPE G0, $GDDA 
001142 MOV RACS11. ;$800 =RECE IVED STATUS 
ADD :MOVE STACK TO USER'S ERROR 
000000 MOVB nig. stSP) “ERROR #47 
SUB #2, (SP) ‘MOVE SP TO RETURN FOR ERROR 
JSR PC. a(SP)+ [REPORT ERROR VIA USER 
SUB #10, (SP) sRESTORE STACK 
NOP 
BR 10$ 
9$: 
:REPORT AN ERROR If DETECTED A CONTROL BUS PARITY ERROR 
001350 BIT #PAR,RMER1I WAS THERE A PARITY ERROR?? 
BEQ 11$ NO! 
001376 BIT #DPE ,RMERZI ie 4 IT THE CONTROL BUS?? 
BNE 11$ [NOT SURE! 
001424 BIT #PAR,RMERIO :D1D TEST SET PAR 2? 
BEQ 93$ 
MOV RO,-(SP) Putt RO ON STACK 
MOV #PUTINX, RO :RO POINTS TO INDEX TABLE 
91$: CMPB ss #RMER1, (RO) >SEARCH TABLE FOR RMERI 
BNE 92$ 
MOV (SP)+,RO :;POP STACK INTO RO 
BR ii ee :PAR WAS SET BY TEST 
92$: TSTB — (RO) + “END OF TABLE?? 
BPL 91$ NO! ! 
MOV (SP)+,RO ::POP STACK INTO RO 
001140 93$: Mov RMERII,$GDDAT EXPECTED STATUS 
001140 BIC #PAR,SGDDAT 
901142 MOV RMERII,$BDDAT  ;RECEIVED STATUS 
ADD #4 (SPS ;MOVE SP’ TO USER'S ERROR CALL 
000000 Move «#50, a(S sWRITE THE ERROR NUMBER 
SUB #2, isp) ‘MOVE SP TO RETURN FOR ERROR 
JSR PC.a(SP)+ [REPORT THE ERROR 
SUB #10, (SP) :MOVE SP TO NO ERROR RETURN 
NOP 
10$: ADD #10, (SP) :RETURN TO ERROR 
11$: NOP s :RETURN TO NO ERROR 
R 


SEQ 0192 
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SECONDARY ERROR CHECK SUBROUTINE SEQ 0193 


} .SBTTL SECONDARY ERROR CHECK SUBROUTINE 
3 ;THE ERROR CHECK SUBROUTINE PROVIDES DETECTION OF SECONDARY ERRORS 
4 ;SUCH AS UNEXPECTED ERRORS AND UNEXPECTED REGISTER CONTENTS. THESE 
5 TERRORS ARE DEEMED SECONDARY IN THAT THEY ARE NOT NECESSARILY 
6 :ASSOCIATED WITH THE OPERATION BEING PERFORM 
? [WHEN THE SUBROUTINE IDENTIFIES SUCH AN ERROR, IT MOVES THE af RROR 
8 ;NUMBER TO THE ERROR CALL IN THE TEST ROUTINE AND THEN RETUR 
9 310 THE TEST ROUTINE WHICH MAKES THE ERROR CALL. AFTER THE Tes! ROUT INE 
10 :MAKES THE ERROR CALL, IT RETURNS TO THE SUBROUTINE WHICH THEN LOOKS FOR 
1 ZOTHER ERRORS. WHEN ALL ERRORS HAVE BEEN REPORTED, THE SUBROUTINE 
12 :RETURNS TO THE ADDRESS FOLLOWING THE SUBROUTINE CALL. 
14 SCALL: JSR PC, SECERR 
15 : BR 273 RETURN HERE IF NO ERROR 
16 : NOP RETURN HERE TO REPORT AN ERROR 
17 : ERROR ERROR NUMBER DEFINED BY SUB 
18 : JSR PC,a(SP)+ GO BACK TO SUB FOR MORE ERROR CHECKS 
% ; 22? RETURN HERE IF NO MORE ERRORS 
21 NOTE: THE SUBROUTINE ere THAT REGISTERS HAVE BEEN STORED AT THE 
22 ‘INPUT REGISTER BUFFER 
24 046004 SECERR: 
26 SARA eee eee e eek kKeeKekeeeeeeeeteeteneeeeteteee 
27 “STORE FUNCTION CODE AND CLEAR USER'S ERROR NUMBER 
28 046004 013737 001410 051640 MOV RMCS10,515$ >STORE FUNCTION CODE 
29 046012 042737 177701 051640 BIC OCeROTFLIR2UF Sian 515$ 
30 046020 062716 000004 ADD #4,(SP) sMOVE (SP) TO ERROR CALL 
31 046024 105076 000000 CLRB ss a SP) ‘CLEAR ERROR NUMBER 
32 046030 162716 000004 SUB a4, (SP) *MOVE (SP) TO NO ERROR RETURN 
34 ° PRR REAR EAA 
4 * CHECK SECONDARY ERRORS COMMON TO ALL COMMANDS 
37 ;REPORT ERROR IF +t 1S NOT READY, I.E., IF DRY = 0 
38 046034 032737 000200 001346 BIT #DRY,RMDSI sDRIVE READY ?? 
39 046042 001024 BNE 5$ YES! ! 
40 046044 013737 001346 001142 MOV RMDSI1,$BDDAT ‘BAD DATA FOR TYPEOUT 
41 046052 042737 177577 001142 BIC #°CORY, SBDDAT 
42 046060 012737 000200 001140 MOV ORY. gSGDDAT :GOOD DATA FOR TYPEOUT 
43 046066 062716 000004 ADD P) 
44 066072 112776 000010 000000 MOVB n16. 3tSP) ;ERROR NUMBER 
45 046100 162716 000002 SUB #2, (SP) ;MOVE SP TO RETURN FOR ERROR 
46 046104 004736 JSR PC a(SP)+ =REPORT NOT READY 
47 046106 162716 000010 SUB #10, (SP) :RESTORE (SP) TO ERROR N 
48 046112 000240 NOP 
*REPORT ERROR IF GO BIT IS NOT RESET 
51 046114 032737 000001 001334 $$: BIT #G0,RMCS11 :60 BIT RESET?? 
52 046122 001423 BEQ 10$ “YES! 
53 046124 013737 001334 01142 MOV RMCS11 SBDDAT BAD DATA FOR TYPEOUT 
54 046132 042737 177776 001142 BIC #*CG0, $B 
55 046140 005037 001140 CLR $GDDAT :GOOD DATA FOR TYPEOUT 
56 046144 062716 000004 ADD #4, (SP) 
57 046150 112776 000011 000000 MOVB = #11, a( SP) :ERROR NUMBER 
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SECONDARY ERROR CHECK SUBROUTINE SEQ 0194 


58 046156 162716 000002 SUB #2, (SP) :MOVE SP TO RETURN FOR ERROR 
59 046162 0047 JSR PC a(SP)+ ‘REPORT DEVICE NOT AVAILABLE 
60 046164 162716 000010 SUB #10, (SP) SRESTORE (SP) 
6} 046170 00024 NOP 
8 -REPORT ERROR IF FUNCTION CODE READ FROM DEVICE IS NOT CORRECT 
64 046172 013737 001334 001142 10S: RMCS11,$BDDAT  ;1S FUNCTION CODE CORRECT?? 
65 046200 042737 177701 001142 BIC #°C 76, $BDDAT 
66 046206 013737 051640 001140 MOV 515$, SeDDAT ZEXPECTED FUNCTION CODE 
67 046214 023737 001142 001140 CMP $BDDAT » SGDDAT 

046222 001413 BEQ 138 SYES!! 

69 046224 062716 000004 ADD (SP) 

70 046230 112776 000012 000000 MOVB ath a(SP) :ERROR NUMBER 

71 0462 162716 000002 $uB #2, (SP) s;MOVE SP TO RETURN FOR ERROR 
72 04624 004736 JSR PC ,a(SP)+¢ sREPORT WRONG FUNCTION CODE 
73 046244 162716 000010 SUB #10, (SP) ZRESTORE (SP) 

74 046250 000240 NOP 

75 046252 15$: 

76 ;REPORT AN ERROR IF COMPOSITE ERROR IS SET AND NO OTHER 

77 sERRORS ARE SET, OR IF COMPOSITE ERROR IS NOT SET AND 

78 [OTHER ERRORS ARE SET 

79 046252 005037 001140 CLR $GDDAT sEXPECT "ERR" = 0 
BO 046256 005737 001350 TST RMER11 :1S RMERT = 02? 
81 046262 001003 BNE 0$ 

046264 005737 001376 TST RMER21 oe 'RMERZ = 02? 

83 046270 001403 BEQ 5$ SYES! 
84 046272 052737 040000 001140 208: BIS WERR,SGDDAT ERR SOULD BE SET 
85 046300 013737 001346 001142 25$: Mov RMDS1,$BDDAT 
B6 046306 042737 137777 001142 BIC #*CERR, SBDDAT 
87 046314 023737 001140 001142 CMP SGDDAT ,SBDDAT fe ERR" OK?? 
88 046322 001412 BEQ 30$ YES 
89 046324 062716 000004 ADD 4, (SP) MOVE: SP TO USER'S ERROR 
90 046330 112776 000047 000000 MOVB #47,a(SP) ‘WRITE ERROR NUMBER 

1 046336 162716 000002 SUB #2, (SP) [MOVE SP TO ERROR RETURN 
92 046342 004736 JSR PC "a(SP)+ ‘REPORT INVALID COMP ERROR 
95 046344 162716 000019 SUB #10, (SP) 
95 ;REPORT AN ERROR IF ‘'TRE’’ IS SET AND NONE OF THE BITS WHICH SET 
96 ;TRE IS SET, OR IF TRE IS NOT SET AND ONE OR MORE BITS WHICH 
97 “SET TRE IS SET 
98 046350 005037 001140 80s: CLR SGDDAT SEXPECT TRE’ = 0 
99 046354 013746 001344 MOV RMCS21,-(SP) | :WAS DLT, WCE, UPE, NED, NEM 
100 046360 042726 000377 BIC #377, (SP)¢ :PGE, MKF OR MDPE SET 
10° 046 001010 BNE 4 YES 
102 046366 032737 040000 001346 BIT WERR,RMDSI aa "EXCEPTION RECEIVEL?? 
103 046374 001407 BEQ 4 =NO! 
104 046376 022737 000030 051640 CMP #SEARCH,515$ WAS ‘pata TRANSFERRED ?? 
105 046404 103003 BHIS 40% 3NO!! 
106 046406 052737 040000 001140 35$: BIS #TRE ,SGDDAT TRE'’ SHOULD BE SET 
107 046414 013737 001334 01142 40$: MOV RMCS{I, SBDDAT BAD DATA FOR TYPEOUT 
108 046422 042737 137777 001142 BIC #*CTRE.S$BDDAT AR 
109 046430 023737 001140 001142 CMP SGDDAT. $BDDAT :1S "TRE" OK?? 
110 046436 001413 BEQ 45$ = YES! 
111 046440 062716 000004 ADD #4, (SP) [MOVE SP TO USER" S ERROR CALL 
112 046444 112776 000014 000000 MOVB = #14, a(S) ‘WRITE ERROR NUMBER 
113 046452 162716 000002 SUB #2, (SP) *MOVE SP TO RETURN FOR ERROR 
114 046456 004736 JSR PC,a(SP)+ *REPORT TRE ERROR 
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SECONDARY ERROR CHECK SUBROUTINE SEQ 0195 
115 046460 162716 000010 SUB #10, (SP) SRESTORE (SP) 
116 046464 000240 NOP 
117 046466 45$: 
119 SRR ARREAEARAAARET AEE EEE AATAAAAAAARAARAAERARETHAKAREAKeeAeA Aes 
120 “USING THE FUNCTION CODE TABLE, CHECK FOR THE FOLLOWING ERRORS: 
121 ; + $TATU § BITS NOT SET THAT SHOULD BE SE, E.G., ATA AND ILF 
122 TUS BITS SET THAT SHOULD NOT BE SET. E.G.. WCE AND ECH 
123 “NOTE a SONE ERROR BITS ARE CONDITIONAL ON THE COMMAND AND OTHER 
124 :STATUS CONDITIONS, E.G., WRITE LOCK ERROR SHOULD ONLY BE SET IF 
125 [WRITE LOCK 1S ON AND THE COMMAND [S.A WRITE. 
127 ;GET AND STORE THE ENTRY FROM THE FUNCTION CODE TABLE ; 
128 046466 010046 MOV RO,-(SP) :PUSH RO ON STACK . 
129 046470 013700 051640 MOV 515$,R0 GET FUNCTION CODE 
130 046474 016037 067046 051632 MOV FNCDTB(RO), 500$ ;STORE ENT 
13 046502 012600 MOV (SP)+,R0 + POP Stack. INTO RO 
133 ;REPORT AN ERROR IF AN UNEXPECTED ATTENTION OCCURRED OR IF 
134 ;ATA 1S NOT SET AND SHOULD BE SET 
135 046504 013737 051632 001140 MOV 500$,$GDDAT GET EXPECTED ATA STATUS 
136 046512 032737 040000 001346 BIT #ERR,RMDSI a3 COMPOSITE ERROR SET ?? 
137 046520 001403 BEQ 50$ NO 
138 046522 052737 100000 001140 BIS HATA, SGDDAT EXPECT AN ATTENTION 
139 046530 042737 077777 001140 50$: BIC #*CATA,SGDDAT ;STRIP DONT CARES 
140 046536 013737 001346 001142 MOV RMDSI,$BDDAT :GET RECEIVED ATA 
141 046544 042737 077777 001142 BIC a*CATA,$BDDAT ;STRIP DONT CARES 
148 046552 023737 001140 001142 CMP SGDDAT,SBDDAT 1S ATA OK 2? 
143 046560 001413 BEQ 55$ YES 
144 046562 062716 000004 ADD #4,(SP) MOVE *ép TO USERS ERROR CALL 
145 046566 112776 000006 000000 MOVB #6.a(SP) ‘LOAD ERROR # IN CALL 
146 046574 162716 000002 SUB #2, (SP) ‘MOVE SP TO ERROR RETURN 
147 046600 004736 JSR PC ,a(SP)+ sREPORT ERROR 
148 046602 162716 000010 SUB #10, (SP) SRESTORE SP 
149 046606 000240 NOP 
130 046610 55$: 
152 ;REPORT ERROR IF ILF IS INCORRECT, 1.£., IF ILF DOES NOT COMPARE 
153 ‘WITH FUNCTION CODE TABLE 
154 046610 013737 051632 001140 MOV 0$,$GDDAT :GET EXPECTED ILF 
155 046616 042737 177776 001140 BIC #*CILF,$GDDAT CLEAR ALL OTHER BITS 
156 046624 013737 001350 001142 MOV RMERII,$BDDAT :GET RECEIVED ILF 
157 046632 042737 177776 001142 BIC #°CILF,$BDDAT CLEAR ALL OTHER BITS 
158 046640 023737 001140 001142 CMP SGDDAT,$BDDAT s1S ILF OK ?? 
159 046646 001412 BEQ 608 YES !! 
160 046650 062716 000004 ADD (SP) sMOVE SP TO USERS ERROR CALL 
161 046654 112776 000254 000000 MOVB a384 a (SP) WRITE ERROR NUMBER IN CALL 
162 046662 162716 000002 SUB #2, (SP) :MOVE SP TO ERROR RETURN 
163 046666 004736 JSR PC wth 44 i REPORT ERROR AND RETURN 
164 046670 162716 000010 SUB #10, (SP OVE SP TO NO ERROR 
165 046674 005037 001140 60$: CLR $GDDAT CLEAR EXPECTED STATUS 
167 ;REPORT os ——— lf oe is SET AND SHOULD NOT BE SET 
168 046700 013746 051632 500$,- ET WCE STATUS ENABLE 
169 046704 052716 137777 “it: acute. tSp) SET ALL OTHER atts 
170 046710 013737 001344 001142 MOV RMCS21,$BDDAT *RECEIVED STATUS 
171 046716 042637 001142 BIC (SP)+¢, $BDDAT >CLEAR WCE If ENABLED 
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SECONDARY ERROR CHECK SUBROUTINE SEQ 0196 
172 046722 001412 BEQ 90$ ;BRANCH IF WCE OK 
173 046724 062716 000004 ADD #4, (SP) sMOVE SP TO on S ERROR CALL 
174 046730 112776 000026 000000 MOVB 4#26,a(SP) [WRITE ERROR : 
175 0467246 162716 000002 SUB #2, (SP) ‘MOVE SP TO ERROR RETURN 
176 046742 004736 JSR PC a(SP)+ ‘REPORT ERROR 
177 066744 162716 000010 SUB #16, (SP) SRESTORE ERROR 
178 046750 90S: 
180 : REPORT ERROR IF OPI STATUS 1S SET AND SHOULD NOT BE SET 
181 046750 013746 051632 500$,-(SP) :GET OP] STATUS ENABLE 
182 046754 052716 157777 Bre #*COPL, (SP) ‘SET ALL OTHER BITS 
183 046760 013737 001350 001142 MOV RMER11,$BDDAT GET RECEIVED STATUS 
184 046766 042637 001142 BIC (SP)+,$BDDAT  :CLEAR OPI IF ENABLED 
185 046772 001412 BEQ 00s ;BRANCH IF OPI O 
186 046774 062716 000004 ADD (SP) :MOVE SP TO USER® S ERROR CALL 
187 047000 112776 000164 000000 MOVB athe a(SP) WR ITE ERROR NUMBER IN CALL 
188 047006 162716 000002 SUB #2, (SP) [MOVE SP TO ERROR RETURN 
189 047012 004736 JSR PC eee ;REPORT ERROR 
190 047014 162716 000010 SUB #10, (SP) [RESTORE SP 
191 047020 100$: 
193 ;REPORT ERROR IF IVC IS SET AND IS NOT ENABLED OR IF IvC IS 
194 ;SET AND VV IS NOT RESET 
195 047020 013746 051632 MOV 500$,-(SP) sGET IvC STATUS ENABLE 
196 047024 032737 000100 001346 BIT #VV,RMDS1 t1$ vv SET 
197 047032 001402 BEQ 105$ [NO !! 
198 047034 042716 010000 BIC #IVC, (SP) :YES = IVC SHOULD BE 0 
199 047040 052716 167777 105$: BIS #*CIVC, (SP) SET ALL OTHER BITS 
200 047044 013737 001376 001142 MOV RMERZ],$BDDAT GET RECEIVED STATUS 
201 047052 042637 001142 BIC (SP)+,$BDDAT  ;CLEAR IVC IF ENABLED 
202 047056 001412 BEQ 110$ ;BRANCH IF IVC OK 
202 047060 062716 000004 ADD #4, (SP) ;sMOVE SP TO USERS ERROR CALL 
204 047064 112776 000165 000000 MOVB #165,a(SP) *WRITE ERROR NUMBER IN CALL 
205 047072 162716 000002 SUB #2, (SP) ‘MOVE SP TO ERROR RETURN 
206 047076 004736 JSR PC,a(SP)+ ‘REPORT ERROR 
207 047100 162716 000010 SUB #10, (SP) sRESTORE SP TO NO ERROR 
208 047104 110$: 
21) ;BI1T 11 (WLE) OF THE FUNCTION CODE TABLE IS THE ENABLING BIT FOR 
2? > ALL WRITE ERRORS, 1.€., 
2°. : RMER1 = WLE, WCF 
213 RMER2 - DPE 
214 RMCS2 = UPE. 
21s ‘EACH OF THESE ERRORS IS CHECKED TO SEE IF AN ERROR IS SET WHEN THE 
316 [WRITE ERROR ENABLE BIT IS RESET. 
218 ;REPORT AN ERROR IF WLE IS SET AND WRITE ERRORS ARE NOT ENABLED, OR IF 
219 >THE DRIVE IS NOT WRITE PROTECTED 
220 047104 012746 177777 MOV #-1,-(SP) ;ASSUME WRITE ERRORS ENABLED 
221 047110 032737 004000 051632 BIT #WLE, $008 : ARE WRITE ERRORS ENABLED ?? 
222 047116 001404 BEQ 115$ 
223 047120 032737 004000 001346 BIT #WRL,RMDSI 18 THE DRIVE WRITE PROTECTED ?? 
224 047126 001002 BNE 120$ ‘YES ! 
225 047130 042716 004000 115$: BIC #WLE, (SP) ‘RESET “WLE ENABLE 
226 047134 013737 001350 001142 1208: MOV RMER{I1,$BDDAT GET RECEIVED STATUS 
227 047142 042637 001142 BIC (SP)+,$BDDAT  :CLEAR WLE IF ENABLED 
228 047146 001412 BEQ 125$ ;BRANCH IF WLE OK 
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229 pert 2e 062716 000004 
230 047154 112776 000028 
231 047162 162716 000002 
232 047166 004736 
233 047170 162716 000010 
234 047174 
235 
236 
237 047174 012746 177777 
238 047200 032737 004000 
239 047206 001002 
240 047210 042716 000040 
241 047214 013737 001350 
242 047222 042637 001142 
243 047226 001412 
244 047230 062716 000004 
245 ob Fes 112776 000025 
246 047242 162716 000002 
247 047246 004736 
248 047250 162716 000010 
249 047254 
250 

- 251 
252 047254 012746 177777 
253 047260 032737 004000 
254 047266 001002 
255 047270 042716 000010 
256 047274 013737 001376 
257 047302 042637 001142 
258 047306 001412 
259 047310 062716 000004 
260 047314 112776 000040 
261 047322 162716 000002 
262 047326 004736 
263 047330 162716 000010 
264 0473 
265 
266 
267 047334 012746 177777 
268 047340 032737 004000 
269 047346 001002 
270 047350 042716 020000 
271 047354 013737 001344 
272 047362 042637 001142 
273 047366 001412 
274 047370 062716 000004 
275 047374 112776 000024 
276 047402 162716 000002 
277 047406 004736 
278 047410 162716 000010 
279 047414 
280 
281 
282 047414 013746 051632 
283 047420 052716 175777 
284 047424 013737 001350 
285 047432 0426357 001142 


C 38 
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000000 


051632 


001142 


000000 


051632 


001142 


000000 


051632 


001142 


000000 


001142 


1258: 
;REPORT 


130$: 


1358: 


;REPORT 


140$: 


145$: 


;REPORT 


150$: 


155$: 
;REPORT 


SEQ 0197 


ADD #4 (SP) MOVE SP TO USERS ERROR CALL 


MOVB #28,a(SP) ‘WRITE ERROR NUMBER IN CALL 
SUB #2. (SP) [MOVE SP TO ERROR RETURN 
JSR SP)+ ‘REPORT ERROR AND RETURN 
SUB WiOe«SP) [RESTORE SP TO NO ERROR 


ERROR IF a + de AND WRITE ERRORS ARE NOT ENABLED 


MOV ; ASSUME WRITE ERRORS ENABLED 
BIT #WLE,500$ ARE WRITE ERRORS ENABLED ?? 
BNE 130$ YES ! 

BIC #WCF, (SP) ‘DISABLE WCF ERROR 

MOV RMERTI,$BDDAT :GET RECEIVED STATUS 

BIC (SP)+,$BDDAT  :RESET WCF IF ENABLED 

BEQ 1358 ‘BRANCH IF WCF OK 

ADD (SP) :MOVE SP TO USERS ERROR CALL 
MOVB 438. a(SP) :WRITE ERROR NUMBER IN CALL 
SUB #2, (SP) VE SP TO ERROR RETURN 

JSR PC.a(SP)+ REPOR ERROR 

SUB #10, (SP) SRESTORE SP TO NO ERROR 
ERROR IF DPE Js SET AND WRITE ERRORS ARE NOT ENABLED 
MOV #-1,-(SP sASSUME WRITE ERRORS ARE ENABLED 
BIT #WLE, 5008 TARE WRITE ERRORS ENABLED ?? 
BNE 140$ YES !! 

BIC #DPE ‘RESET DPE ENABLE 

MOV RRERSI SBDDAT [GET RECEIVED STATUS 

BIC (SP)+,$BDDAT :RESET DPE IF ENABLED 

BEQ 145$ [BRANCH IF DPE OK 

ADD #4, (SP) [MOVE SP TO USERS ERROR CALL 

MOVB #40,a(SP) [WRITE ERROR NUMBER IN CALL 
SUB 2, (SP) ‘MOVE SP TO ERROR RETURN 

JSR PC.a(SP)+ =REPORT ERROR 

SUB #10, (SP) [RESTORE SP TO NO ERROR 


AN ERROR IF UPE IS SET re WRITE ERRORS ARE NOT ENABLED 
MOV #-1,-(SP) ASSUME WRITE ERRORS ARE se 
rs , 500% iARE WRITE ERRORS ENABLED ? 


BNE : 
BIC [DISABLE UPE ERROR 

MOV RMCESI SBDDAT [GET RECEIVED STATUS 

BIC (SP)+,$BDDAT | :RESET UPE IF ENABLED 

BEQ 155$ ‘BRANCH IF UPE OK 

ADD #4, (SP) [MOVE SP TO USERS ERROR CALL 
MOVB  #24,a(SP) [WRITE ERROR NUMBER IN CALL 
SUB #2, (SP) [MOVE SP TO ERROR RETURN 

JSR PC .a(SP)+ [REPORT ERROR AND RETURN 
SUB #10, (SP) :MOVE SP TO NO ERROR 


AN ERROR IF o ai SET AND 1S NOT ENABLED 
MOV 500$,- ie IAE ENABLE 


BIS ICIAE. (SP) :SET ALL OTHER BITS 
MOV RMERII,$BDDAT GET RECEIVED STATUS 
BIC (SP)+, SBDDAT ;CLEAR IAE IF ENABLED 
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GPOOOrrw 


000010 


8 
309 
310 0474664 012746 177777 
047470 032737 001000 


047500 042716 100000 
047504 013737 001344 
001142 


047520 062716 000004 
524 112776 000032 
047532 162716 000002 


162716 000010 


AWAIAIAIAIA Wwe 
PA et et et et et ot 
DONO US WR— 

eS o 

te 

~“ “ 

w 

~ 

Nm 

oS 

- 

Nm 

o 

Ww 

N 


w 
Nm 
—D 
So 
- 
~“ 
uw 
S 
Oo 


2 047544 
325 
324 
325 047544 012746 177777 
326 047550 032737 001000 


327 047556 
328 047560 042716 004000 
047564 


37 001344 
330 047572 042637 001142 
331 047576 001412 
332 047600 062716 000004 
333 047604 112776 000167 
334 047612 162716 000002 
335 047616 004736 
336 047620 162716 000010 
337 047624 
338 
339 
340 047624 177777 


012746 
341 047630 032737 001000 
342 047636 001002 


1 
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000004 
000166 000000 
000002 


051632 


001142 


000000 


051632 


001142 


000000 


051632 


160$: 


BEQ Sg ; BRANCH IF JAE IS 

ADD (SP) ;MOVE SP . USERS ERROR CALL 
MOVB r166, a(SP) ;WRITE ERROR NUMBER 

SUB #2, (SP) MOVE SP 10. ERROR RETURN 


JSR PC ,a(SP)+ 


“REPORT ERROR AND RETURN 
SUB #10, (SP) 


MOVE SP TO NO ERROR 


:B1T 09 (AOE) OF THE a it. CODE TABLE IS THE ENABLING BIT FOR 


; ALL wy 5 ERRORS, 
RMCS1 = T 


ig 
RMCS2 = DLT,NEM,MXF 
RMDS = LBT 
RMER1 = AOE 


1S NOT CHECKED BECAUSE IT ONLY RESETS WHEN THE DESIRED 


LBT 
SCYLINDER REGISTER 1S WRITTEN 
:NOTE: 


“NOTE: 


;REPORT 


165$: 


1708: 


;REPORT 


175$: 


180$: 
;REPORT 


AOE CANNOT BE SET IF LBT IS NOT ALSO SET 
TRE IS CHECKED AS A FUNCTION OF OTHER ERROR CONDITONS ABOVE 


AN ERROR IF DLT IS SET “ Ba gh ERRORS ARE NOT ENABLED 
MOV #-1,-(SP) UME ERRORS ARE ENABLED 
BIT fu ,500$ ZARE ERRORS ENABLED ?? 


;RESET DLT ENABLE 

GET RECEIVED STATUS 

:CLEAR DLT IF ENABLED 

;BRANCH IF DLT IS OK 

;MOVE SP TO USERS ERROR CALL 
WRITE ERROR NUMBER IN CALL 
MOVE SP TO ERROR RETURN 
;REPORT ERROR AND RETURN 

:MOVE SP TO NO ERROR 


B 
MOV RAC SS] SBDDAT 
BIC (SP)+, ,SBDDAT 


JSR PC.a(SP)+ 
SUB #10, (SP) 


ERROR IF oT . fs ee AND READ/WRITE ERRORS ARE NOT ENABLED 
MOV #-1,-(SP ASSUME ERRORS ARE " a. ED 
BIT WAOE , 5008 ; ARE ERRORS ENABLED ? 
At ; YES 
BIC #NEM 


‘ OTSABLE NEM 
MOV RAC SSI SBDDAT :GET RECEIVED STATUS 
BIC (SP)+,$BDDAT | :CLEAR NEM Jf ENABLED 
BEQ 1808 ;BRANCH IF NEM IS OK 
ADD (SP) MOVE SP TO USERS ERROR CALL 
MOVB ney a(sP) ;WRITE ERROR NUMBER IN CALL 
SUB #2, (SP) MOVE SP TO ERROR RETURN 
JSR PC a(SP)+ “REPORT ERROR AND RETURN 
SUB #16, (SP) [MOVE SP TO NO ERROR 


ERROR IF Bey RR al AND READ/WRITE ERRORS ARE NOT ENABLED 
MOV #-1,-(SP sASSUME ERRORS ARE ENABLED 

BIT WAOE , 5008 ARE DATA ERRORS ENABLED ?? 

BNE 185$ YES !! 


SEQ 0198 


1 
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SECONDARY ERROR CHECK SUBROUTINE SEQ 0199 
343 047640 042716 001000 BIC AMXE :DISABLE MXF ERROR : 
344 047644 013737 001344 001142 1858: MOV aAcsoi. SBDDAT GET RECEIVED STATUS 
345 047652 042637 001142 BIC (SP)+,$BDDAT | :CLEAR MXF IF ENABLED 
246 047656 001412 BEQ 190$ ‘BRANCH IF MXF IS OK 
347 047660 062716 000004 ADD 44, (SP) “MOVE SP TO USERS ERROR CALL 
348 047664 112776 000033 000000 MOVB #338,a(SP) ;WRITE ERROR NUMBER IN CALL 
349 047672 162716 000002 SUB #2, (SP) “MOVE SP TO ERROR RETURN 
350 047676 004736 JSR PC,a(SP)+ ;REPORT ERROR AND RETURN 
351 047700 162716 000010 SUB #10, (SP) ‘MOVE SP TO NO ERROR 
352 047704 190$: 

354 ;REPORT am IF AOE i: SET AND DATA ERRORS ARE NOT ENABLED 
355 047704 012746 177777 #-1,-(SP) sASSUME DATA ERRORS ARE ENABLED 
356 047710 032737 001000 051632 ayy #AOE, 500$ ;ARE DATA ERRORS EANBLED ?? 
357 047716 001404 BEQ 191$ NO '! ; 

358 047720 032737 002000 001346 BIT #LBT,RMDSI :1$ LBT ALSO SET ?? 

359 047726 001002 BNE 195$ YES 

360 047730 042716 001000 191$: BIC #AOE, (SP) DI SABL — AOE 

361 047734 013737 001350 001142 195$: MOV RMERII, SBDDAT “GET RECEIVED STATUS 

362 047742 042637 001142 BIC (SP)+, $BDDAT = CLEAR AOE IF ENABLED 

363 047746 001412 BEQ 200$ ‘BRANCH IF AOE IS OK 

364 047750 062716 000004 ADD #4, (SP) “MOVE SP TO USERS ERROR CALL 
365 047754 112776 000020 000000 MOVB = #20, (SP) ‘WRITE ERROR NUMBER 

366 047762 162716 000002 SUB #2, (SP) [MOVE SP TO ERROR RETURN 

367 047766 004736 JSR PC.a(SP)+ ‘REPORT ERROR AND RETURN 

368 047770 162716 000010 SUB #10, (SP) s;MOVE SP TO NO ERROR 

369 047774 200$: 

371 ;BIT O07 (HCE) OF THE FUNCTION CODE TABLE IS THE ENABLING BIT FOR 
372 ;HEADER ERRORS, I.E. 

373 : RMER1 - HCRC, "HCE, FER 

ge 5 RMER2 - BSE 

376 ;RESET THE ENABLING BIT (HCE) IF HEADER COMPARE INHIBIT IS SET 
377 047774 032737 002000 001366 BIT #HC1,RMOF I :1S HCI SET ?? 

378 050002 001403 BEQ 201$ ‘NO |! 

379 050004 042737 000200 051632 BIC #HCE , 500% [YES - DISABLE ALL HEADER ERRORS 
380 050012 201$: 

382 sREPORT AN ERROR IF eye 1S SET AND HEADER ERRORS ARE NOT ENABLED 
383 050012 012746 177777 MOV #-1,-(SP ;ASSUME ERRORS ENABLED 

384 050016 032737 000200 051632 BIT #HCE, $008 ZARE HEADER ERRORS ENABLED ?? 
385 050024 001002 BNE 205$ :YES 

386 050026 042716 000400 BIC #HCRC, (SP) + OTSABLE HCRC 

387 050032 013737 001350 001142 205%: MOV RMERI1,$BDDAT :GET RECEIVED STATUS 

388 050040 042637 001142 BIC (SP)+,$BDDAT | :RESET HCRC IF ENABLED 

389 050044 001412 BEQ 210% ;BRANCH IF HCRC IS OK 

390 050046 062716 000004 ADD #4,(SP) sMOVE SP TO USERS ERROR CALL 
391 050052 112776 000035 000000 MOVB #35, a(SP) ;WRITE ERROR NUMBER IN CALL 
392 050060 162716 000002 SUB #2, (SP) MOVE SP TO ERROR RETURN 

393 050064 004736 JSR PC,a(SP)+ ‘REPORT ERROR AND RETURN 

394 050066 162716 000010 SUB #10, (SP) ‘MOVE SP TO NO ERROR 

395 050072 2108: 

397 ;REPORT — IF HCE IS SET AND HEADER ERRORS ARE NOT ENABLED 
398 050072 012746 177777 #-1,-(SP) > ASSUME ERRORS ENABLED 

399 050076 032737 


000200 051632 BIT WHCE ,5008 ;ARE ERRORS ENABLED ?? 


F 16 
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SECONDARY ERROR CHECK SUBROUTINE SEQ 0200 

400 050106 001002 BNE 2158 TYES 1! 

401 050106 042716 000200 BIC “DISABLE HCE 

02 050112 013737 001350 001142 215%: Mov aneRth: SBDDAT [GET RECEIVED STATUS 

403 050120 042637 001142 BIC (SP)+,$BDDAT § :CLEAR HCE IF ENABLED 

404 050124 001412 SEQ 2208 ;BRANCH IF HCE IS OK 

405 050126 062716 000004 ADD #4, (SP) MOVE SP TO USERS ERROR CALL 
406 050132 112776 000036 000000 MOVB #36,a(SP) :WRITE ERROR NUMBER IN CALL 
407 050140 162716 000002 SUB #2, (SP) MOVE SP TO ERROR RETURN 

408 050144 004736 JSR PC,a(SP)+ ‘REPORT ERROR AND RETURN 

409 050146 162716 000010 SUB #10, (SP) ‘MOVE SP TO NO ERROR 
410 050152 2208: 
412 ;REPORT ERROR IF FER 1S SET AND HEADER ERRORS ARE NOT ENABLED 
413 050152 012746 177777 MOV #-1,-(5P) ;ASSUME FER 1S ENABLED 

414 050156 032737 000200 051632 BIT #HCE ,500$ GARE HEADER ERRORS ENABLED ?? 
415 050164 001002 BNE 225$ SYES 

416 050166 042716 000020 BIC #FER, (SP) “DISA bi E FER 

417 050172 013737 001350 001142 2258: MOV RMER11 ,$BDDAT ;GET RECEIVED STATUS 

418 050200 042637 001142 BIC (SP)+,$BDDAT sRESET FER IF ENABLED 

419 050204 001412 : BEQ 230% ‘BRANCH IF FER OK 

420 050206 062716 000004 ADD 44, (SP) ;MOVE SP TG USERS ERROR CALL 
421 050212 112776 000037 000000 MOVB = #37, a( SP) :WRITE ERROR NUMBER IN CALL 
422 050220 162716 000002 SUB #2, (SP) ;MOVE SP TO ERROR RETURN 

423 050224 004736 JSR PC,a(SP)+ ;REPORT ERROR AND RETURN 

424 050226 162716 000010 SUB #10, (SP) :MOVE SP TO NO ERROR 
425 050232 2308: 
427 ;REPORT ERROR IF BSE i? * AND HEADER ERRORS ARE NOT ENABLED 
428 050232 012746 177777 MOV #-1,-(SP ;ASSUME ERRORS ENABLED 
429 050236 032737 000200 051632 BIT auck, $608 SARE THEY ENABLED ?? 
430 050244 001002 BNE 235$ YES 
431 050246 042716 100000 BIC ABSE, (SP) sOTSABLE BSE 
432 050252 013737 001376 001142 235%: MOV RMER21,$BDDAT GET RECEIVED STATUS 
433 050260 042637 001142 BIC (SP)+,$BDDAT *CLEAR BSE IF ENABLED 
434 050264 001412 BEQ 2408 ;BRANCH IF BSE OK 
435 050266 062716 000004 ADD (SP) ;MOVE SP TO USERS ERROR CALL 
436 050272 112776 000354 000000 MOVB 4354" a(SP) WR ITE ERROR NUMBER 
437 050300 162716 000002 SUB #2, (SP) MOVE SP TO ERROR RETURN 
438 050304 004736 JSR PC,a(SP)+ “REPORT ERROR AND RETURN 
439 050306 162716 000010 SUB #10, (SP) :MOVE SP TO NO ERROR 
440 050312 2408: 
442 3B1T 06 OF THE FUNCTION CODE TABLE IS THE ENABLING BIT FOR DATA 
443 sFIELD ERRORS, 1.€E., 
444 2 RMCS2 - MDPE bs 
445 : RMER1 - DCK,ECH 
446 sNOTE: 
447 2 ECH CANNOT SET UNLESS IT IS ENABLED AND ECI IS RESET AND 
448 “DCK IS SET. 
450 ;REPORT ERROR IF ~ ee IS SET AND IS NOT ENABLED 

451 050312 012746 177777 MOV #-1,-(SP) :ASSUME ENABLED 

452 050316 032737 000100 051632 BIT SEC, 5008 + ARE DATA FIELD ERRORS ENABLED ?? 
453 050324 001002 BNE 245% YES 

454 050326 042716 000400 BIC #MDPE, (SP) [DISBALE MDPE 

455 050332 013737 001344 001142 2458: MOV RMCS21 $BDDAT GET RECEIVED STATUS 

456 050340 042637 001142 BIC (SP)+, $BDDAT ;CLEAR MDPE IF ENABLED 
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457 050344 001412 

458 050346 062716 000004 
459 050352 112776 000027 
460 050360 162716 000002 
461 050364 004736 

462 050366 162716 000010 
463 050372 

464 

465 

466 050372 012746 177777 
467 050376 032737 000100 
468 050404 001002 

469 050406 042716 100000 
470 050412 013737 001350 
471 050420 042637 001142 
472 050424 001412 

473 050426 062716 000004 
474 050432 112776 000030 
475 050440 162716 000002 
476 050444 004736 

477 050446 162716 000010 
478 050452 

479 

480 

"481 

482 

483 

484 050452 012746 177777 
485 050456 032737 000100 
486 050464 001410 

487 050466 032737 004000 
488 050474 001004 

489 050476 032737 100000 
490 050504 001002 

491 050506 042716 000100 
492 050512 013737 001350 
493 050520 042637 001142 
494 050524 001412 

495 050526 062716 000004 
496 050532 112776 000031 
497 050540 162716 000002 
498 050544 004/736 

499 050546 162716 000010 


500 050552 
501 


G 16 
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BEQ 2508 :BRANCH IF MDPE OK 
ADD #4, (SP) :MOVE SP TO USERS ERROR CALL 
000000 MOVB =: #27, a( SP) ‘WRITE ERROR NUMBER IN CALL 
SUB #2, (SP) :MOVE SP TO ERROR RETURN 
JSR PC. a(SP)+ ‘REPORT ERROR AND RETURN 
SUB #16, (SP) ‘MOVE SP TO NO ERROR 
2508: 
;REPORT ERROR IF DK Is SET AND DATA FIELD ERRORS ARE NOT ENABLED 
MOV #-1,-(SP) sASSUME ENABLED 
051632 BIT #ECH, 5008 ;ARE THEY ENABLED ?? 
BNE 255$ YES 


BIC #OCK, (SP) DISA ai E DCK 
001142 255%: MOV RMERII,$BDDAT GET RECEIVED STATUS 
BIC (SP)+,$BDDAT CLEAR DCK IF ENABLED 


BEQ 260$ ‘BRANCH IF DCK IS OK 
ADD #4, (SP)- _ }MOVE SP TO USERS ERROR CALL 
000000 MOVB #30, a(SP) :WRITE ERROR NUMBER IN CALL 
SUB #2, (SP) :MOVE SP TO ERROR RETURN 
JSR PC.a(SP)+ :REPORT ERROR AND RETURN 
SUB #10, (SP) ‘MOVE SP TO NO ERROR 
260$: . 
;REPORT ERROR IF ECH IS SET AND, 
; DATA FIELD ERRORS ARE NOT ENABLED, OR 
: EC] IS SET, OR 
; DCK 1S NOT SET. 
MOV #-1,-(SP) ZASSUME ENABLED 
051632 BIT #ECH,500$ GARE ERRORS ENABLED ?? 
BEQ 265$ NO 
001366 BIT #ECI,RMOF 1 i18 Ect SET 2? 
BNE 65$ 
001350 BIT #OCK,RMER1I a DcK ALSO SET 2? 
BNE 270$ YES 
265$: BIC #ECH, (SP) ‘OT SABLE ECH 
001142 270$: MOV RMER11,$BDDAT :GET RECEIVED STATUS 
BIC (SP)+,$BDDAT | :CLEAR ECH IF ENABLED 
BEQ 2758 :BRANCH IF ECH IS OK 
ADD , (SP) :MOVE SP TO USERS ERROR CALL 
000000 MOVB #31. a(SP) ‘WRITE ERROR NUMBER IN CALL 
SUB #2, (SP) :MOVE SP TO ERROR RETURN 
JSR PC a(SP)+ ‘REPORT ERROR AND RETURN 
bee SUB #10, (SP) :MOVE SP TO NO ERROR 


SEQ 0201 


050636 


050640 


050660 
050666 
050674 
050676 


050704 
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oa 
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40 050746 


43 050750 
44 050752 
45 050756 


47 050762 
6 


022626 
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000030 
051604 


001336 
040000 
000004 


000002 
000010 


001336 
001412 
001140 
001414 
000010 
001414 
001140 


001340 


000002 
000010 


001336 
001412 


000400 
000002 


000002 


900004 
000002 
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051640 


001142 
001334 


000000 


001140 
001140 


001140 
001344 
001140 
001340 
001142 
000000 


001410 


,ReeeeeaeeekeeeeeeeeeeeeeeeteeeeeeekeeeeKeneateeneReaeeeeeReeeees 


:#PERF ORM THE REMAINING ERROR CHECKS ONLY FOR DATA TRANSFER COMMANDS 


PARRA e eee eee eeeeeteeeeeKeekeekkeeeeeteKeeeeHeKeKeeenees 


;REPORT 


280$ 


;REPORT 


285$ 


290$: 


2958: 


300$: 


;WAS DATA TRANSFERRED ? 
;BR IF YES 
3NO = EXIT 
9 D COUNT ZERO?? 
‘TRANSFER ERROR DETECTED?? 
s¥éS! ! 
;ERROR NUMBER 
:GOOD DATA FOR TYPEOUT 
;MOVE SP TO RETURN FOR ERROR 


REPORT WORD COUNT NOT ZERO 
sRESTORE (SP) 


;GET WORD COUNT AT END OF TRANSFER AND 
s SUBTRACT STARTING WORD COUNT. 


ADD STARTING BUS ADDRESS 
taal a ADDRESS INHIBIT (BAI) SET ?? 
;ADDRESS SHOULD NOT HAVE CHANGED 
;BUS ADDRESS OK?? 
‘BAD DATA FOR TYPEOUT 
ERROR NUMBER 
MOVE SP TO RETURN FOR Eb ‘OR 


;REPORT UNEXPECTED ADDRESS 
RESTORE (SP) 


CMP #SEARCH,515$ 
BLO 280$ 

JMP 355$ 

ERROR 1F RMWC NOT ZERO And TRE 1S ZERO 

RMWC1,$SBDDAT 

Bed 285$ 

BIT #TRE,RMCS11 

BNE 285$ 

ADD #4, (SP) 

MOVB = #15, (SP) 
CLR $GDDAT 

SUB #2, (SP) 

JSR PC.a(SP)+ 
SUB #10, (SP) 

NOP 

ERROR IF RMBA IS NOT CORRECT 
MOV RMWC1,$GDDAT 
SUB RMWCO,$GDDAT 
ASL $GDDAT 

ADD RMBAO, $GDDAT 

BIT #BAIL,RMCS21 

BEQ 290$ 

MOV RMBAO, SGDDAT 
CMP $GDDAT,RMBAL 

BEQ 295$ 

MOV RMBAL . $BDDAT 
ADD #4, (SP) 

MOVR #16, a( SP) 
SUB #2, (SP) 

JSR PC .a(SP)+ 
SUB #10, (SP) 

NOP 


RMWC I, -(SP) 


RMWCO, (SP) 
#256. 


7 (SP) 


#B1T1,RMCS10 
300% 


#2, (SP) 
4(SP) 

(SP) ,2(SP) 
300% 
(SP)+, (SP) 


;COMPUTE EXPECTED SECTOR, 


+ 


TRACK 


; COMPUTE NUMBER * _ TRANSFERRED FROM WORD COUNT 
CLR ($P NUMBER 


OF SECTORS TRANSFERRED 
:GET WORD COUNT AT END OF TRANSFER AND 
; SUBTRACT STARTING WORD COUNT. 


sASSUME 256. WORDS PER SECTOR 
:HEADER & DATA COMMAND ?? 


NO 

+ CHANGE TO 258. WORDS PER SECTOR 
s INCREMENT SECTOR COUNT 
;SUBTRACT ONE SECTOR'S WORTH 
;CONTINUE IF NOT DONE 

;RESTORE STACK 


AND CYLINDER ADDRESS FROM 


SEQ 0202 
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58 :NUMBER OF SECTORS 

59 051016 013737 001444 051632 MOV RMDCO,500$ :STORE ORIGINAL CYLINDER 

60 051024 013737 001416 051634 MOV RMDAO,505$ sSTORE ORIGINAL TRACK 

61 051032 013737 001416 051636 MOV RMDAO,510$ ;STORE ORIGINAL SECTOR 

62 051040 013737 001332 051642 MOV LSTRK,520$ ‘STORE LAST TRACK 

63 051046 000337 051642 SWAB «5520 [GET TRACK ADDRESS TO LO BYTE AND 
64 051052 005237 051642 INC 520$ : INCREMENT TO GET TOTL # OF TRACKS. 
66 051056 042737 000377 051634 BIC #*C<TADMSK>,505$ ;SAVE TRACK ADDRESS ws Hi AND 
67 051064 000337 051634 SWAB 505$ 3; SWAP TRACK ADDRESS TO LOW BYTE. 
68 051070 042757 177400 051636 BIC #*C<SADMSK>, 5108 ;SAVE SECTOR ADDRESS BITS 
$9 051076 062637 051636 ADD (SP)+,510$ 

71 051102 023727 051636 000040 310%: CMP 510$,#32. :SECTOR OVEFLOWED?? 

72 051110 103406 BLO 315$ NO! 

73. 051112 005237 051634 INC 505$ : INCREMENT TRACK 

74 051116 162737 000040 051636 SUB #32. ,510$ ADJUST SECTOR 

t? 051124 000766 BR 310$ ; TRY AGAIN 

77 051126 023737 051634 051642 315%: CMP 505$,520$ :TRACK OVERFLOWED?? 

78 051134 103407 BLO 320$ ‘NO! 

79 651136 005237 051632 INC 500$ INCREMENT CYLINDER 

B80 051142 163737 051642 051634 SUB 5208 505% ‘ADJUST TRACK 

81 051150 000766 BR 315$ STRY AGAIN 

82 051152 000240 NOP 

84 sREPORT ERROR IF “‘LBT'’ IS NOT CORRECT 

85 051154 $208: 

86 051154 005037 001140 CLR SGDDAT ;SET GOOD DATA FOR LBT = 9 

87 051160 023727 051632 001466 CMP 500$, #822. ;SHOULD LBT BE SET?? 

88 051166 101407 BLOS  325$ NO! 

89 051170 032737 002000 001350 BIT #IAE,RMERTI :WAS. IAE SET ?? 

90 051176 001003 BNE 325$ YES = LBT SHOULD NOT BE SET 

91 051200 012737 002000 001140 MOV #LBT,$GDDAT [SET GOOD DATA FOR LBT = 1 

92 051206 013737 001346 001142 325%: ‘MOV RMDSI,$BDDAT BAD DATA FOR TYPEOUT 

93 051214 042737 175777 001142 BIC #*CLBT,$BDDAT 

94 051222 023737 001140 001142 CMP $GDDAT,SBDDAT 71S LBT CORRECT?? 

95 051230 001413 BEQ 3308 YES! ! 

96 051232 062716 000004 ADD (SP) 

97 051236 112776 000017 000000 MOVB nt? a(SP) :ERROR NUMBER 

98 051244 162716 000002 SUB #2, (SP) s;MOVE SP TO RETURN FOR ERROR 

99 051250 004736 JSR PC,a(SP)+ ;REPORT LBT IS WRONG 

100 051252 162716 000010 SUB #10, (SP) ‘RESTORE (SP) 
10% 051256 000240 NOP 

103 >REPORT 7g IF ale IS INCORRECT 

104 051260 005037 001140 330$: CLR  — $GDDAT SET FOR AOE = 0 

105 051264 032737 002000 001350 BIT #IAE,RMERT] ;WAS AE’ DETECTED?? 

106 051272 001031 BNE 3408 YES-""AOE'’ SHOULD BE ZERO 

107 051274 023727 051632 001466 CMP 500$,#822. ; SHOULD AOE BE SET?? 

108 051302 101425 BLOS  340$ NO! 

109 051304 005737 051634 TST 505$ MAYBE 

110 051310 001012 BNE 335$ ZYES 

111 051312 005737 051636 TST 510$ 

112 051316 001007 BNE 335$ sYES 1! 

113 051320 032737 000010 051640 BIT #F2,515$ :WAS: THIS READ OR WRITE CHECK ?? 
114 051326 001413 BEQ 340$ “NO 


1 
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SECONDARY ERROR CHECK SUBROUTINE SEQ 0204 
115 051330 005737 001336 TST RMWC1 :WAS ALL DATA TRANSFERRED ?? 
116 051334 001410 BEQ 340$ “YES 
117 051336 012737 001000 001140 335$: MoV #AOE , SGDDAT SET for AOE = 1 
118 051344 005037 051634 CLR 505$ *CLEAR EXPECTED TRACK 
119 051350 012737 000001 051636 MOV #1,510$ TEXPECT SECTOR = 1 
120 051356 013737 001350 001142 3408: MOV RMER11,$BDDAT BAD DATA FOR TYPEOUT 
121 051364 042737 176777 001142 BIC #*CAOE , SBDDAT 
122 051372 023737 001140 001142 CMP SGDDAT,SBDDAT 1S AUE CORRECTY?? 

123 051400 001413 BEQ 34 5$ YES! ! 

124 051402 062716 000004 ADD (SP) 

125 051406 112776 000020 000000 MOVB 436. a(SP) :ERROR NUMBER 

126 051414 162716 000002 SUB #2, (SP) s;MOVE SP TO RETURN FOR ERROR 
127 051420 004736 JSR PC,a(SP)+ ;REPORT AOE IS WRONG 

128 051422 162716 000010 SUB #10, (SP) “RESTORE (SP) 

129 051426 000240 NOP 

131 »REPORT ope 1F RMDA 1S NOT CORRECT 

132 051430 032737 002000 001350 %45$: 1T #IAE,RMERTI :WAS THERE AN IAE ERROR ?? 
133 051436 001062 BNE 355$ “YES = DONT CHECK RMDA,RMDC 
134 051440 013737 051634 001140 MOV 505$,$GDDAT SETUP EXPECTED DISK ADDRESS 
135 051446 000337 0601140 SWAB  $GDDAT 

136 051452 113737 051636 001140 MOVB 510$,$GDDAT 

137 051460 013737 001342 001142 MOV RMDAI ,$BODAT ;SETUP RECEIVED DISK ADDRESS 
138 051466 023737 001140 001142 CMP $GDDAT,$BDDAT ;COMPARE EXPECTED & RECEIVED 
139 051474 001413 BEQ 350$ [BRANCH IF EQUAL 

140 051476 062716 000004 ADD #4, (SP) 

141 051502 112776 000021 000000 MOVB #21, a(SP) sERROR NUMBER 

142 051510 162716 000002 SUB #2, (SP) ‘MOVE SP TO RETURN FOR ERROR 
143 051514 004736 JSR PC,a(SP)+ ;REPORT BAD DISK ADDRESS 

144 051516 162716 000010 SUB #10, (SP) SRESTORE (SP) 

145 051522 000240 NOP 

147 ;REPORT ERROR IF RMDC IS INCORRECT 

148 051524 013737 051632 001140 %350$: Mov 500$, $GDDA ae sSETUP EXPECTED CYLINDER 

149 051532 042737 176000 001140 BIC #°C1777,$GDD 

150 051540 013737 001370 001142 MOV RMDCI, sé0say ;SETUP RECEIVED CYLINDER 

151 051546 023737 001140 001142 CMP SGDDAT, S$BDDAT ;COMPARE CYLINDERS 

152 051554 001413 BEQ 355$ ‘BRANCH IF EQUAL 

153 051556 062716 000004 ADD #4, (SP) 

154 051562 112776 000022 000000 MOVB #22,a(SP) sERROR NUMBER 

155 051570 162716 000002 SUB #2, (SP) [MOVE SP TO RETURN FOR ERROR 
156 051574 004736 JSR PC,a(SP)+ ;REPORT BAD CYLINDER 

157 051576 162716 000010 SUB #10, (SP) *RESTORE (SP) 

138 051602 000240 NOP 

160 051604 062716 000004 355$: ADD #4, (SP) sMOVE (SP) TO ERROR CALL 

161 051610 105776 000000 TSTB a(SP) ;WAS ERROR FOUND?? 

162 051614 001403 BEQ 360$ 

163 051616 062716 000004 ADD #4, (SP) sMOVE (SP) TO ERROR RETURN 
164 051622 000402 BR 365$ 

165 051624 162716 000004 360$: SUB #4, (SP) s;MOVE (SP) TO NO ERROR RETURN 
166 051630 000207 365$: RTS PC 

168 051632 000000 500$: .WORD 0 : CYLINDER 

169 051634 000000 505$: .WORD 0 TRACK 

170 051636 000000 510$:  :WORD 0 =SECTOR 

171 051640 000000 515$: . WORD 0 sFUNCTION CODE 


ios wig AS: K 16 
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SECONDARY ERROR CHECK SUBROUTINE SEQ 0205 


172 051642 000000 5208: «WORD 0 7# OF TRACKS FOR DEVICE UNDER TEST = LAST 
i ;TRACK + 1 TRACK 


L 16 
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COMPOSITE ERROR CHECK SUBROUTINE SEQ 0206 


-SBTTL COMPOSITE ERROR CHECK SUBROUTINE 


;THIS SUBROUTINE CHECKS THE STORED CONTENTS OF RMER1 AND 
sRMER2 AFTER MASKING EACH REGISTER WORD WITH THE USER'S STATUS 
;MASKS AND REPCRTS AN ERROR IF ANY BITS ARE LEFT ON AFTER 

; THE MASKS ARE APPLIED. 


1 

2 

3 

4 

5 

6 

7 

8 CALL: 

9 ; JSR PC, CMPERRSTS 

10 : . WORD MASK FOR ERROR REGISTER 1 

11 ; . WORD MASK FOR ERROR REGISTER 2 

12 : SR 22? RETURN HERE IF NO ERROR 

13 : NOP RETURN HERE TO REPORT AN ERROR 
14 ; ERROR ERROR NUMBER DEFINED BY SUB 

15 : JSR PC,a(SP)+ GO BACK TO SUB FOR MORE ERROR CHECKS 
1g ; 72? RETURN HERE IF NO MORE ERRORS 
18 NOTE: BITS TO BE MASKED SHOULD BE ONE; BITS TO BE TESTED SHOULD 
1 ;BE ZERO 
4 051644 CMPERRSTS: 
23 ;MASK AND STORE THE CONTENTS OF RMER1 AND RMER2 
24 051644 013737 001350 001176 MOV RMER11,$1MP1 STORE RMER1 AT TEMP STORAGE 
25 051652 047637 000000 001176 BIC a(SP),$TMP1 sMASK = RMER1 
26 051660 062716 000002 ADD #2, (SP) sMOVE SP TO NEXT MASK 
27 051664 013737 001376 001200 MOV RMER21,$1MP2 :STORE RMER2 AT TEMP STORAGE 
4 051672 047637 000000 001200 BIC a(SP),STMP2 sMASK RMER2 
30 
31 CLEAR USER'S ERROR CALL 
32 051700 062716 000006 ADD #6, (SP) ;MOVE SP TO USER” S ERROR CALL 
33 051704 105076 000000 CLRB a(sP) ay ERROR NUMBER 
ze 051710 162716 000004 SU8 #4, (SP) *LEAVE SP AT NO ERROR RETURN 
36 sSEE IF rene WERE ANY ERRORS IN WERT 1.E., STM 
37 051714 005737 001176 TST STMP1 ANY ERRORS To REPORT?? 

38 051720 001420 BEQ 5$ “NO 

39 051722 013737 001176 001142 MOV $TMP1,S$BDDAT RECEIVED STATUS FOR TYPEOUT 
40 051730 005037 001140 CLR $GDDAT sENPECTED. status FOR TYPEOUT 
41 051734 062716 000004 ADD #4, (SP) ;MOVE SP TO USER'S ERROR CALL 
42 051740 112776 000066 000000 MOVB #66,a(SP) SCORREC TABLE DATA CHECK ERROR # 
43 051746 162716 000002 SUB #2,(SP) ‘MOVE SP TO RETURN FOR ERROR 
44 051752 004736 JSR PC,a(SP)+ REPORT ERROR VIA USER 
45 051754 162716 000010 SUB #10, (SP) *MOVE SP BACK TO BRANCH 
46 051760 000240 NOP 
47 051762 5$: 
t3 
50 SEE IF THERE ARE ANY ERRORS TO REPORT IN RMER2 ($TMP2) 

51 051762 005737 601200 TST $TMP2 ;ANY ERRORS IN RMER2? 

eg 0517 001420 BEQ 10$ sNO!! 

54 051770 013737 001200 001142 MOV Sieve seneat RECEIVED STATUS FOR TYPEOUT 
55 051776 005037 001140 CLR $GD s EXPECTED STATUS FOR a a 
56 052002 062716 000004 ADD He SP) MOVE SP TO USER'S ERROR CAL 

57 052006 112776 000067 000000 MOVB #67 ,a(SP) ‘WRITE ERROR NUMBER IN USER® § CALL 


BI 
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COMPOSITE ERROR CHECK SUBROUTINE SEQ 0207 
58 052014 16. 6 000002 SUB #2, (SP) :MOVE SP TO RETURN FOR ERROR 
59 052020 00475 JSR PC a(SP)+ ‘REPORT ERROR VIA USER 
60 052022 162716 000010 SUB #16, (SP) ‘MOVE SP TO NO ERROR RETURN 
61 052026 000240 NOP 
62 052030 10$: 

64 :AUGMENT THE RETURN ADDRESS IF ANY ERROR WAS DETECTED 

65 052030 062716 000004 ADD #, (SP) :MOVE SP TO USER'S ERROR CALL 

66 052034 105776 000000 1TSTB = A SP) ;WAS THERE AN ERROR CALLED?? 

67 052040 001403 BEQ 20$ °N 

68 052042 062716 000004 ADD #4, (SP) aed - MOVE SP TO ERROR RETURN 

69 052046 000402 BR 30$ 

70 052050 162716 000004 20$: SUB #4, (SP) :MOVE SP TO NO ERROR RETURN 
207 30$: RTS PC ‘RETURN TO USER 


71 052054 000 
72 


c J 
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j .SBTTL DEVICE SELECT SUBROUTINE 
; : THIS SUBROUTINE SELECTS THE DEVICE, GETTING THE DEVICE NUMBER FROM THE 
5 ’ 
6 3; CALL: 
7 2(1) JSR PC ,DEVSEL 
8 7(2) BR 7 RETURN IF NO ERROR 
9 :(3) NOP RETURN IF ERROR 
10 (4) ERROR ERROR DEFINED BY SUBROUTINE 
l2 052056 DEVSEL: 
14 SCLEAR USER" S ERROR CALL 
15 052056 062716 000004 (© :MOVE SP TO USER'S ERROR 
16 052062 105076 000000 CLRB 3tgP) :CLEAR LOW ORDER BYTE OF CALL 
7 052066 162716 000004 SUB #4, (SP) “MOVE SP BACK 
19 ;SAVE USER'S INFORMATION AND SETUP REGISTERS 
20 052072 013746 000004 MOV ERRVEC,-(SP) ;sPUSH ERRVEC ON STACK 
052076 013746 000006 MOV ERRVEC#2,-(SP) PUSH ERRVEC#2 ON STACK 
052102 010046 MOV RO,-(SP) PUSH rd ON STACK 
0521046 010146 MOV R1,-(SP) PUSH R1 ON STACK 
21 052106 012737 052226 000004 MOV #20$,ERRVEC ‘SETUP FOR BUS TIMEOUT 
22 052114 012737 000300 000006 MOV #PR6ERRVEC+2 
23 052122 013700 001276 MOV $BASE RO :RO = UNIBUS ADDRESS 
3h 052126 013701 001464 MOV - TSTQUE,R1 :R1 POINTS TO DEVICE NUMBER 
26 pSELECT DEVICE AND VERIFY THAT DEVICE IS AVAILABLE 
27 052132 111160 000010 MOVB  (R1),RMCS2(RO) ;WRITE UNIT SELECT BITS 
28 052136 016037 000000 001176 MOV RMCS1(RO),$TMP1 :GET DVA'’ STATUS 
29 052144 016037 000010 001174 MOV RMCS2(RO),$TMPO :GET "'NED'’ STATUS 
31 052152 032737 010000 001174 BIT #NED ,STMPO iis DEVICE NONEXISTENT ? 
32 052160 001407 BEQ 10$ NO! 
33 052162 062766 000004 000010 ADD #4,10(S ‘move SP TO USERS ERROR CALL 
34 052170 112776 000111 000010 MOVBso#'111 BTOCSP) ‘WRITE ERROR NUMBER 
35 052176 000422 BR 30$ 
37 052200 032737 004000 001176 10$: BIT #DVA,STMP1 :1$ DEVICE AVAILABLE ? 
38 052206 001021 BNE 35$ YES! 
39 052210 062766 000004 000010 ADD #4,10(SP) “MOVE "SP TO USERS ERROR CALL 
40 052216 112776 000112 000010 MOVB = #112, a10(SP) ‘WRITE ERROR NUMBER 
43 052224 000407 BR 30$ 
43 : HANDLE Bus TIMEOUT 
44 052226 022626 20$: CMP (SP)+, (SP) + sADJUST SP 
45 052230 062766 000004 000010 ADD #4, 10(SP) [MOVE SP TO USERS ERROR CALL 
46 052236 112776 000113 000010 MOVB =o #113 ai0tsP) “WRITE BUS TIMEOUT ERROR NUMBER 
47 052244 162766 000002 000010 308: SUB #2,10(SP) TADJUST RETURN TO "NOP* PRECEDING 
48 [THE ERROR CALL 
4 
50 “RESTORE USERS DATA AND RETURN TO ADDRESS ON STACK 
51 052252 $58: 
052252 012601 MOV (SP)+,R1 ::POP STACK INTO R1 
052254 012600 MOV (SP)+.RO +:POP STACK INTO RO 
052256 012637 000006 MOV (SP) +, ERRVEC#2 ::POP STACK INTO ERRVEC+2 


CZRMMAO RMOS/3/2 FCTNL TST 1 
DEVICE SELECT SUBROUTINE 


052262 012637 000004 
2¢ 052266 000207 


D1 
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MOV 
RTS 


(SP)+,ERRVEC 
PC 


3;POP STACK INTO ERRVEC 
EXIT 


SEQ 0209 


- 
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SEEK STATUS CHECK SUBROUTINE SEQ 0210 


} -SBTTL SEEK STATUS CHECK SUBROUTINE 
3 3 THIS SUBROUTINE VERIFIES THE RESULTS OF SEEK TESTS USING STATUS 
¢ ;STORED IN THE GET BUFFER AND TEST PARAMETERS STORED IN THE PUT BUFFER. 
6 ; 
7 ; THE SUBROUTINE RETURNS TO THE CALLING ROUTINE IF AN ERROR IS DETECTED 
8 ;AFTER HAVING LOADED THE APPROPRIATE ERROR NUMBER IN THE ‘'ERROR'' TRAP 
> 3OF THE CALLING ROUTINE. SEEK STATUS IS CHECKED AS FOLLOWS: 
11 sCALL: 
12 741) JSR PC,SEKSTS 
13 ; BR 72? RETURN HERE IF NO ERROR 
14 Ms NOP RETURN HERE TO REPORT AN ERROR 
15 ; ERROR ERROR NUMBER DEFINED BY SUB 
16 ; JSR PC,a(SP)+ GO BACK TO SUB FOR MORE ERROR CHECKS 
4 ; 22? RETURN HERE IF NO MORE ERRORS 
, 052270 SEKSTS: 
21 ;CLEAR USERS* ERROR CALL 
22 052270 000240 NOP 
23 052272 062716 000004 ADD #4,(SP) ;MOVE (SP) TO ERROR CALL 
24 052276 105076 000000 CLRB a(SP) ;CLEAR ERROR NUMBER 
25 052302 162716 000004 SUB #4, (SP) *MOVE (SP) TO NO ERROR RETURN 
st 052306 005037 053526 CLR 300$ sCLEAR ERROR FLAGS 
28 : TEST FOR MASSBUS CONTROL. penn me ig Rg WHEN WRITING 
29 ;LOCAL REGISTERS, 1. 1 *"DPE' 
30 052312 032737 000010 001350 BIT #PAR, RRERII :WAS PARITY ERROR DETECTED?? 
31 052320 001424 BEQ 1$ NO! 
32 052322 032737 000010 001376 BIT #DPE,RMER21 iuas IT 14) TO CONTROL BUS?? 
052330 001020 BNE 1$ NOT SURE! 
35 ;REPORT Yellen PARITY ERROR VIA USER'S ERROR CALL 
36 052332 005037 001140 CLR SGDDAT sEXPECTED STATUS 
37 052336 013737 001350 001142 MOV RMER11,$BDDA7 SRECEIVED STATUS 
38 052344 062716 000004 ADD #4,(SP j :MOVE STACK TO USER'S ERROR 
39 052350 112776 000050 000000 MOVB #50, a(SP) “ERROR #50 
40 052356 162716 000002 , SUB #2, (SP) ;MOVE SP TO RETURN FOR ERROR 
41 052362 004736 JSR PC,a(SP)+ 
42 052364 162716 000010 SUB #10, (SP) sRESTORE STACK 
+ 052370 000437 BR 3$ ;]AE SHOULD BE ZERO 
45 ;DETERMINE THE VALUE OF “‘IAE'’ STATUS BASED . TRACK, SECTOR AND CYLINDER 
“ALSO, yi Be i IF CYLINDER ADDRESS if ree ARGE. 
47 052372 012737 002000 001140 is: #IAE,SGDDAT 7 SETUP R IAE = | 
48 052400 052737 040000 053526 Bis #Sk1,300$ > SETUP FOR SKI = 1 
49 052406 023727 001444 001466 CMP RMDCO, #822. ‘GREATER THAN LAST CYLINDER ? 
50 052414 101025 : BH] 3$ sYES - CYLINDER IS INVALID 
3} 052416 042737 040000 053526 BIC #SK1,300$ ;CLEAR SK] ERROR FLAG 
53 052424 123737 001417 001333 CMPB RMDAO+1,LSTRK*+1 ;GREATER THAN LAST TRACK ? 
¢ 052432 101016 BH] 3$ sYES = TRACK IS INVALID 
56 052434 123727 001416 000035 CMPB RMDAO, #29, sSECTOR > 29. ? 
57 052442 101410 BLOS 2% 7BR IF NO 


et 
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SEEK STATUS CHECK SUBROUTINE SEQ 0211 


58 052444 032737 010000 001442 BIT #FMT16,RMOFO :18 BIT FORMAT ? 

59 052452 001406 BEQ @ YES - SECTOR 1s INVALID FOR 18 BIT MODE 
60 052454 123727 001416 000037 CMPB  —sa RMDAO,, #31. SECTOR > ® 

61 052462 101002 BHI 3$ YES = SECTOR is INVALID 
63 052464 005037 001140 2$: CLR SGDDAT sIAE' SHOULD = 0 

65 - COMPARE uf XPECTED AND RECIEVED "‘IAE’' STATUS 

66 052470 013737 001350 001142 3$: RMERII,$BDDAT ;1S IAE OK?? 

67 052476 042737 175777 001142 Ble #*CIAE,SBDDAT :SAVE IAE BIT FOR COMPARE 
68 052504 023737 001140 001142 CMP SGDDAT,$BDDAT :CORRECT "IAE’’ STATUS ? 

69 052512 001004 BNE 5$ ‘BR IF NO 

70 052514 042737 040000 053526 BIC #SK1, 3008 SCLEAR SKI FLAG 

71 052522 000413 BR 5$ +60 CHECK NEXT ERROR 

72 052524 35$: 

73 >REPORT INCORRECT “AES STATUS VIA USER'S ERROR CALL 

74 052524 062716 000004 #4, (SP) 

75 052530 112776 000051 000000 move #51,a(SP) sERROR 51 

76 052536 162716 000002 SUB #2, (SP) :MOVE SP TO RETURN FOR ERROR 
77 052542 004736 JSR PC.a(SP)+ [REPORT INCORRECT JAE 

78 052544 162716 000010 SUB #10, (SP) sRESTORE (SP) 

79 052550 000240 NOP 

80 052552 5$: 

82 ;REPORT ANY IVC ERROR AS 

83 : IVC ERROR WITH VOLUME VALID ZERO 

84 : ERRONEOUS IVC ERROR, VOLUME VALID IS SET 

85 052552 032737 010000 001376 BIT #IVC,RMERZI iV C ERROR?? 

86 052560 001427 BEQ 328 

87 052562 005037 001140 CLR $GDD EXPECTED STATUS 

88 052566 013737 001376 001142 MOV RMEROLSBDDAT sRECEIVED STATUS 

89 052574 062716 000004 ADD #4, (SP) : MOVE SP TO USER” S ERROR 
90 052600 112776 000060 000000 MOVB #60, a(SP) TERROR 60 IF VV = 0 

91 052606 032737 000100 001346 BIT #VV.RMDS1 

92 052614 001403 BEQ 51$ 

93 052616 112776 000061 000000 MOVB = #61, (SP) sERROR 61 IF VV = 1 

94 052624 162716 000002 51$: SUB #2, (SP) [MOVE SP TO RETURN FOR ERROR 
95 052630 004736 JSR PC,a(SP)+ sREPORT ERROR VIA USER 
96 052632 162716 000010 SUB #10, (SP) *RESTORE SP 

97 052636 000240 NOP 

99 052640 013737 001376 001142 52%: MoV RMER21,$BDDAT  ;RECEIVED STATUS 

100 052646 042737 137777 001142 BIC #*°CSKI.$BDDAT :CLEAR DONT CARES 

10° 052654 013737 053526 001140 MOV 300$,$GDDAT [GET EXPECTED SKI STATUS 
102 052662 042737 - 137777 001140 BIC #*CSKI,$GDDAT :CLEAR DONT CARES 

103 052670 001417 BEQ 53$ [BRANCH IF 0 EXPECTED 
105 ;REPORT ERROR IF SKI 1S NOT SET (IAE WAS NOT DETECTED) 
106 052672 032737 040000 001142 BIT #SK1,$BDDAT :WAS SKI DETECTED ? 

107 052700 001032 BNE 34 $ YES 

108 052702 062716 000004 ADD (SP ‘MOVE *§p TO USERS ERROR CALL 
109 052706 112776 000267 000000 MOVB 4267. tsp) :WRITE ERROR NUMBER 

110 052714 162716 000002 SUB #2, (SP) :MOVE SP TO ERROR RETURN 
111 052720 004736 JSR PC.a(SP)¢ [REPORT ERROR AND RETURN 
112 052722 162716 000010 SUB #10, (SP) ‘MOVE SP TO NO ERROR 

113 052726 000443 BR :GO TO NEXT ERROR CHECK 
114 052730 53%: 
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SEEK STATUS CHECK SUBROUTINE SEQ 0212 
115 
116 . ;REPORT ERROR IF SKI IS SET 
117 052730 032737 040000 001142 BIT #SK1,$BDDAT :1S SKI SET 2? 
118 052736 001413 BEQ 54$ sNO - SKI IS OK 
119 052740 062716 000004 ADD #4, (SP) sMOVE (SP) TO ERROR 
120 052744 112776 000054 000000 MOVB = #54, a( SP) ‘LOAD ERROR NUMBER 
121 052752 162716 000002 SUB #2, (SP) ‘MOVE SP TO RETURN FOR ERROR 
122 052756 004736 JSR PC,a(SP)+ ;REPORT SEEK ERROR 
123 052760 162716 000010 SUB #16, (SP) “RESTORE (SP) 
126 052764 000240 NOP 
126 ;REPORT ANY DEVICE CHECK 
127 052766 032737 000200 001376 §4$: BIT #OVC RMERZI :WAS THERE DVC DURING SEEK?? 
128 052774 001420 BEQ 6$ ‘NO! ! 
129 052776 005037 001140 CLR $GDDAT SEXPECTED STATUS 
130 053002 013737 001376 001142 MOV RMER21,$BDDAT sRECEIVED STATUS 
131 053010 062716 000004 ADD #4, (SP 
132 053014 112776 000055 000000 MOvB #55, a(SP) ZERROR #55 
133 053022 162716 000002 SUB #2, (SP) ‘MOVE SP TO RETURN FOR ERROR 
134 053026 004736 JSR PC,a(SP)+ sREPORT ERROR VIA USER 
135 053030 162716 000010 SUB #10, (SP) SRESTORE SP 
136 053034 000240 NOP 
138 ;REPORT ANY ‘‘OPI'’ ERROR AS OPI WITH MOL = 0, OR OPI 
139 ;BECAUSE ON CYLINDER LATCH DIDN'T RESET 
140 053036 032737 020000 001350 6$: BIT #OPI,RMER11 OPI" ERROR?? 
141 053044 001427 BEQ 8$ NO! ! 
142 053046 005037 001140 CLR SGDDAT sEXPECTED STATUS 
143 053052 013737 001350 001142 MOV RMERII,$BDDAT RECEIVED STATUS 
144 053060 062716 000004 ADD #4, (SP) sMOVE (SP) TO ERROR 
145 053064 112776 000052 000000 MOVB #52, a(SP) [LOAD ERROR NUMBER 
146 053072 032737 010000 001346 81T MMOL ,RMDSI s;WAS MEDIUM ON LINE?? 
147 053100 001403 BEQ 7$ NO! ! 
148 053102 112776 000053 000000 MOVB =: #53, a( SP) [YES = CHANGE ERROR NUMBER 
149 053110 162716 000002 7$: SUB #2, (SP) ‘MOVE SP TO RETURN FOR ERROR 
150 053114 004736 JSR PC,a(SP)+ ;REPORT ‘‘OPI'' ERROR 
151 053116 162716 000010 SUB #10, (SP) SRESTORE (SP) 
132 053122 000240 NOP 
154 >SEE IF ‘‘PIP*’ = 0, AND ‘‘ATA'', "‘MOL'’ AND ‘'vy'' = 1 
155 053124 013746 001346 8S: MOV RMDSI,-(SP) 
156 053130 042716 047677 BIC #*C<ATA!PIP! MOL! VV>, (SP) 
157 053134 022726 110100 CMP HATA! MOL !VV,(SP)4 
158 053140 001002 BNE 9$ sERROR IN RMDS 
159 053142 000137 053476 JMP 14$ =RMDS 1S OK 
161 >REPORT ERROR IF MOL = O AND OPI = 0 
162 053146 032737 010000 001346 9$: BIT #MOL ,RMDSI :1S MOL RESET?? 
163 053154 001030 BNE 10$ ‘NO - MOL IS SET 
164 053156 032737 020000 001350 BIT #OP1,RMER1] [WAS OPI SET 
165 053164 001024 BNE 10$ [YES = DONT REPORT ERROR 
166 053166 013737 001346 001140 MOV RMDSI,$GDDAT EXPECTED STATUS 
167 053174 052737 010000 001140 BIS #MOL , $GDDAT 
168 053202 013737 001346 001142 MOV RMDSI,$BDDAT RECEIVED STATUS 
169 053210 062716 000004 ADD #4, (SP 
170 053214 112776 000062 000000 MOVB #62,a(SP) 
171 053222 162716 000002 SUB #2, (SP) sMOVE SP TO RETURN FOR ERROR 
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SEEK STATUS CHECK SUBROUTINE SEQ 0213 

172 053226 004736 JSR PC ,a(SP)+ ;REPORT ERROR VIA USER 

173 053230 162716 000010 SUB #16, (SP) 

1% 053234 000240 NOP 

176 ;REPORT AN ERROR IF ‘'PIP'' IS STIL SET AND SKI NOT SET 

177 053236 032737 020000 001346 {i0$: BIT #PIP,RMDSI 31S PIP’ STILL SET?? 

178 053244 001430 BEQ 11$ NO! ! 

179 053246 032737 040000 001376 BIT #SK1,RMERZI “WAS "'SKI''SET?? 

180 053254 001024 BNE 11$ SYES=DONT REPORT PIP 

181 053256 013737 001346 001140 MOV RMDSI SGDDAT EXPECTED STATUS 

182 053264 042737 020000 001142 BIC #PIP, $BDDAT 

183 053272 013737 001346 001142 MOV RMDSI,$BDDAT § ;RECEIVED STATUS 

184 053300 062716 000004 ADD #4, (SP) sMOVE (SP) TO ERROR 

185 053304 112776 000056 000000 MOVB #56,a(SP) ‘LOAD ERROR NUMBER 

186 053312 162716 000002 SUB #2, (SP) ;MOVE SP TO RETURN FOR ERROR 

187 053316 004736 JSR PC,a(SP)+ ;REPORT ‘'PIP'’ SET AFTER SEEK 

188 053320 162716 000010 SUB #10, (SP) sRESTORE (SP) 

189 053324 000240 NOP 

191 ;REPORT AN ERROR IF ‘‘ATA'' IS NOT SET 

192 053326 032737 100000 001346 i1$: BIT #ATA,RMDSI :WAS “'ATA' SET 7? 

193 053334 001024 BNE 13$ 

194 053336 013737 001346 001140. MOV RMDSI,$GDDAT EXPECTED STATUS 

195 053344 052737 110600 001140 BIS #ATA'MOL !DPR'!DRY.$GDDAT 

196 3953352 013737 001346 001142 MOV et graenas *RECEIVED STATUS 

197 053360 062716 000004 ADD MOVE (SP) TO ERROR 

198 053364 112776 000057 000000 MOVB a5) ats) ; LOAD ERROR NUMBER 

199 053372 162716 000002 SUB #2, (SP) MOVE SP TO RETURN FOR ERROR 

4 05337 004736 JSR PC,a(SP)+ :REPORT ATTENTION NOT SET DURING 
s K 

202 053400 162716 000010 SUB #10, (SP) sRESTORE (SP) 

203 053404 000240 NOP 

205 ;REPORT ERROR IF VOLUME VALID IS RESET AND IVC IS ZERO 

206 053406 032737 000100 001346 13$: BIT #VV.RMDSI :1S w= 0 2? 

207 053414 001030 BNE 14$ NO! ! 

208 053416 032737 010000 001376 BIT #IVC,RMERZ] :1S IVC ALSO 0 ?? 

209 053424 001024 BNE 14$ NO = IvC IS SET 

210 053426 013737 001346 001140 MOV RMDS1,$GDDAT EXPECTED STATUS 

211 053434 052737 000100 001140 BIS #VV,S$GDDAT 

212 053442 013737 001346 001142 MOV RMDSI,$BDDAT RECEIVED STATUS 

213 053450 062716 000004 ADD #4, (SP) 

214 053454 112776 000064 000000 MOVB #64,a(SP) SERROR #64 

215 053462 162716 000002 $UB #2, (SP) s;MOVE SP TO RETURN FOR ERROR 

216 053466 004736 JSR PC,a(SP)+ 

217 053470 162716 000010 SUB #16, (SP) 

218 053474 000240. NOP 

319 053476 14$: 

221 ;MODIFY THE RETURN ADDRESS IF AN ERROR WAS DETECTED 

222 053476 000240 NOP 

223 053500 062716 000004 ADD #4, (SP) sMOVE (SP) TO ERROR CALL 

224 053504 105776 000000 TSTB. ~—s_ (SP) “WAS ERROR CALLED?? 

225 053510 001403 BEQ 15$ =NO!! 

226 053512 062716 000004 ADD #4, (SP) sMOVE TO ERROR RETURN 

327 053516 000402 BR 16$ 
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229 053520 162716 000004 15$: SUB a4, (SP) ;MOVE (SP) TO NO ERROR RETURN 
te 053524 000207 168: RTS PC ;RETURN 

23 
23 


1 
¢ 053526 000000 300$: .WORD 0 ;ERROR FLAGS 
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; -SBTTL CONTROLLER CLEAR SUBROUTINE 
3 THIS SUBROUTINE CLEARS THE MASSBUS CONTROLLER, MASSBUS ADAPTERS, 
: sAND DRIVES, THEN SELECTS THE DRIVE. 
6 CALL: JSR PC,CNTCLR , 
7 : BR TT? / RETURN HERE IF NO ERROR FOUND 
& : NOP RETURN HERE IF ANY ERROR FOUND 
9 : ERROR SUB DEFINES ERROR NUMBER 
10 : 72? 
11 
12 053530 CNTCLR: 
053530 010046 MOY RO,-(SP) 3;PUSH RO ON STACK 
053532 010146 MOV Ri,-(SP) 3;PUSH R1 ON STACK 
053534 013746 000004 MOV ERRVEC,-(SP? ; PUSH are ON STAC 
053540 013746 000006 MOV ERRVEC+2,-(SP) PUSH ERRVEC #2 ON STACK 
13 053544 012737 053604 000004 MOV #10$,ERRVEC ; SETUP FOR BUS TIMEOUT 
14 053552 012737 000300 000006 MOV #PRO,ERRVEC+2 
15 053560 013700 001276 MOV SBASE ,RO ;RO = UNIBUS ADDRESS 
16 053564 012760 000040 000010 MOV WCLR,RMCS2(RO) CLEAR MASSBUS 
17 053572 013701 001464 MOV TSTQUE ,R1 GET DEVICE UNDER TEST 
18 053576 111160 000010 MOVB (R1),RMCS2(RO) SELECT DEVICE 
% 053602 000412 BR 20% 
21 053604 022626 10$: CMP (SP)+,(SP)+ s ADJUST STACK 
22 053606 062766 000004 000010 ADD #4,10(SP) ;MOVE SP TO USER'S ERROR CALL 
23 053614 112776 000007 000010 MOVB #7,010(SP) ;WRITE THE ERROR NUMBER 
$e 03 3066 162766 000002 000010 208 SUB #2,10(SP) SADJUST SP TO RETURN TO ERROR 
053630 012637 000006 MOV (SP)+,ERRVEC+2 ;POP STACK INTO ERRVEC+2 
053634 012637 000004 MOV (SP)+,ERRVEC ;POP STACK INTO ERRVEC 
053640 012601 MOV (SP)+,R1 : POP STACK INTO RI 
053642 012600 MOV (SP)+,RO 3;POP STACK INTO RO 
000207 RTS PC 


6 053644 
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» SBTTL STATUS CHECK SUBROUTINES 


SPREE REAR REE H EET TEEEEEKEKEHRRARH KKK eK Kee eee 


-SBTTL CONTROLLER CLEAR STATUS CHECK SUBROUTINE | 


Bayt SUBROUTINE VERIFIES THAT THE SUBSYSTEM IS INITIALIZED cy ON 
:STATUS STORED IN THE GET BUFFER. THIS SUBROUTINE SHOULD ONLY BE 
[USED FOLLOWING A CONTROLLER CLEAR OPERATION, I.£., WRITING r 1_IN BIT 
75 OF RMCS2, BECAUSE THE ERROR MESSAGES ARE BASED ON THAT CONDITION. 


1 

2 

3 

4 

5 

‘ 

7 

8 

10 ;STATUS PERTINENT TO THE DEVICE IS NOT CHECKED. IN PARTICULAR, THE 
\} sFOLLOWING STATUS BITS ARE NOT CHECKED: 

13 : ATA, ERR,PIP,MOL,WRL,LBT,PGM,VV,OM,UNS, SKI ,DVC 

15 

16 sCALL: 

17 =(1) JSR PC,CLRSTS 

18 ; BR 273 RETURN HERE IF NO ERROR 

19 : NOP RETURN HERE TO REPORT AN ERROR 
20 ; ERROR ERROR NUMBER DEFINED BY SUB 
21 ; JSR PC,a(SP)+ GO BACK TO SUB FOR MORE ERROR CHECKS 
$¢ ; 22? RETURN HERE IF NO MORE ERRORS 
24 053646 CLRSTS: 
26 :CLEAR USER" S ERROR CALL 
27 053646 062716 000004 ADD , (SP) sMOVE SP TO ERROR 
28 053652 105076 000000 CLRB 3(gP) ;CLEAR ERROR NUMBER 
29 053656 162716 000004 SUB #4, (SP) MOVE SP BACK TO NO ERROR 
30 :REPORT ERROR IF RMCS1 NOT INITIALIZED 
31 053662 013737 001334 001142 4$: MOV RMCS11,$BDDAT  ;VERIFY RMCS1 
32 053670 042737 100000 001142 BIC #SC,$BDDAT + IGNORE SPECIAL CONDITION 
33 053676 012737 004200 001140 MOV #DVA!RDY,SGDDAT :EXPECT DVA & RDY 
34 053704 023737 001140 001142 CMP SGDDAT,SBDDAT : COMPARE MPECTED, RECEIVED 
35 053712 001413 BEQ 5$ ‘BRANCH IF EQUA 
36 053714 062716 000004 ADD #4, (SP) :MOVE SP TO USER® S ERROR CALL 
37 053720 112776 000126 000000 MOVB #126,a(SP) ‘WITE ERROR NUMBER IN CALL 
38 053726 162716 000002 SUB #2, (SP) :MOVE SP TO RETURN FOR ERROR 
39 053732 004736 JSR PC.a(SP)+ [REPORT ERROR VIA USER 
40 053734 162716 000010 SUB #10, (SP) ‘MOVE SP BACK TO NO ERROR 
41 053740 000240 NOP 

“REPORT ERROR IF RMBA NOT RESET 

43 053742 005037 001140 S$: CLR SGDDAT :VERIFY RMBA 1S ZERO 
44 053746 013737 001340 001142 MOV RMBAI, $BDDAT 
45 053754 001413 BEQ 7s :BRANCH I€ ZERO 
46 053756 062716 000004 ADD (SP) :MOVE SP TO USER'S ERROR CALL 
47 053762 112776 000127 000000 MOVB m8 a(SP) sWITE ERROR NUMBER IN CALL 
48 053770 162716 000002 SUB #2, (SP) *MOVE SP TO RETURN FOR ERROR 
49 053774 004736 JSR PC .a(SP)+ ‘REPORT ERROR VIA USER 

50 053776 162716 000010 SUB #16, (SP) :MOVE SP BACK TO NO ERROR 

51 054002 000240 NOP 
52 “REPORT ERROR IF RMCS2 NOT INITIALIZED 

53 054004 013737 001344 001142 7$: MOV RMCS21,$BDDAT  ; VERIFY RMCS2 

54 054012 010146 MOV R1,- tthe >:PUSH R1 ON STACK 

55 054014 005046 -- CLR -(§P) sEXPECT IR & UNIT NUMBER 

56 054016 013701 001464 MOV TSTQUE,R1 7R1 = ADDRESS OF TEST QUE 

57 054022 111116 MOVB (R11), (SP) 
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FCTNL 
CONTROLLER CLEAR STATUS CHECK SUBROUTINE SEQ 0217 
58 054024 052716 000100 BIS #IR, (SP) 
59 054030 012637 001140 MOV (SP}+,$GDDAT 
60 054034 012601 MOV (SP)+-R1 :;POP STACK INTO 
1 054036 023737 001140 001142 CMP SGDDAT,$BDDAT : COMPARE EXPECTED Ht RECEIVED 
62 054044 001413 BEQ $ ;BRANCH IF EQUAL 
63 054046 962716 000004 ADD #4, (SP) MOVE SP TO USER" S ERROR CALL 
64 054052 112776 000130 000000 MOVB #180,a(SP) :WITE ERROR NUMBER IN CALL 
65 054060 162716 000002 SUB #2, (SP) MOVE SP TO RETURN FOR ERROR 
66 054064 004736 JSR PC .a(SP)+ “REPORT ERROR VIA USER 
67 054066 162716 000010 SuB #10, (SP) ‘MOVE SP BACK TO NO ERROR 
68 054072 000240 
69 ;REPORT ERROR IF RMER1 NOT RESET-IGNORE UNS 
70 054074 005037 001140 $$: CLR $GDDAT :VERIFY RMER1 
71 054100 013737 001350 001142 MOV RMER11,$BDDAT 
72 054106 042737 040000 001142 BIC #UNS ,SBDDAT s IGNORE UNSAFE 
73 054114 001413 BEQ 13$ ‘BRANCH IF ZERO 
74 054116 062716 000004 ADD #4, (SP) :MOVE SP TO USER'S ERROR CALL 
75 054122 112776 000131 000000 MOVB = #131, a(SP) ;WITE ERROR NUMBER IN CALL 
76 054130 162716 000002 SUB #2, (SP) “MOVE SP TO RETURN FOR ERROR 
77 054134 004736 JSR PC,a(SP)+ > REPORT ERROR VIA USER 
78 054136 162716 000010 SuB #10, (SP) ‘MOVE SP BACK TO NO ERROR 
79 054142 000240 
80 ;REPORT SRROR IF RMMR1 NOT alae 45 y~y WC,LS,LST 
81 054144 013737 001360 001142 13$: MOV RMMR11,$BDDAT  ; VERIF 
82 054152 042737 000046 001142 BIC #WC'LS'LST, SBDDAT ir ORE WORD CLOCK, SCT, TRK 
83 054160 012737 000010 001140 MOV #MWD, SGDDAT sEXPECT WRITE DATA BIT 
84 054166 023737 001140 001142 CMP $GDDAT, SBDDAT ; COMPARE EXPECTED AND RECEIVED 
85 054174 001413 BEQ vs ;BRANCH IF 0 
86 054176 062716 000004 ADD “MOVE SP TO USER'S ERROR CALL 
87 054202 112776 000133 000000 MOVB m3, BSP) :WITE ERROR NUMBER IN CALL 
88 054210 162716 000002 SUB #2, (SP) [MOVE SP TO RETURN FOR ERROR 
89 054214 004736 JSR PC ,a(SP)+ REP ORT ERROR VIA USER 
90 054216 162716 000010 SUB #i6, (SP) =MOVE SP BACK 10 NO ERROR 
91 054222 000240 NOP 
92 ;REPORT oe. ERROR IF RMEC2 IS NOT RESET 
93 054224 005037 001140 i7$: CLR S$GDDAT sEXPECT ZEROS 
94 054230 013737 001402 001142 MOV RMEC21,$BDDAT : VERIFY RMEC2 = 0 
95 054236 001413 BEQ 19$ 
96 054240 062716 000004 ADD #4, (SP) :MOVE SP TO USER'S ERROR CALL 
97 054244 112776 000135 000000 MOVB #135 a(SP) sWITE ERROR NUMBER IN CALL 
98 054252 162716 000002 SUB #2, (§P) :MOVE SP TO RETURN FOR ERROR 
99 054256 004736 JSR PC, ,a(SP)+ sREPORT ERROR VIA USER 
100 054260 162716 000010 SUB #16, (SP) ‘MOVE SP BACK TO NO ERROR 
10? 054264 000240 
102 :REPORT ERROR IF RMMR2 NOT INITIALIZED-IGNORE RQA,ROB 
103 054266 013737 001374 001142 19S: MOV RMMR21,$BDDAT  ; VERIFY RMMR2 
104 054274 042737 140000 001142 BIC #ROA'ROB, SBDDAT 
105 054302 012737 011777 001140 MOV #TST'1777, $GDDAT sEXPECT TEST BIT ON 
106 054310 023737 001140 001142 CMP $GDDAT, $BDDAT 
107 054316 001413 BEQ 218 
108 054320 062716 000004 ADD (SP) :MOVE SP TO USER'S ERROR CALL 
109 054324 112776 000136 000000 MOVB tito. a(sP) WITE ERROR NUMBER IN CAL 
110 054332 162716 000002 SUB #2, (SP) [MOVE SP TO RETURN FOR ERROR 
111 054336 004736 JSR PC a(SP)¢+ [REPORT ERROR VIA USER 
11@ 0543540 162716 000010 SUB #16, (SP) ‘MOVE SP BACK TO NO ERROR 
113 054344 000240 NOP 
114 :REPORT ERROR IF RMER2 NOT RESET-IGNORE SKI,DVC 
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115 056346 005037 001140 21$: CLR SGDDAT :EXPECT ALL ZEROS 

116 054352 013737 001376 001142 MOV RMERZI1,SBDDAT  :VERIFY RMER2 

117 054360 042737 040200 001142 BIC #SKI'DVC,SBDDAT ; IGNORE DEVICE ERRORS 

118 054366 001413 BEQ 2158 sBRANCH IF OTHER BITS 0 

119 054370 062716 000004 ADD (SP) sMOVE SP TO USER'S ERROR CALL 
120 054374 112776 000174 000000 MOVB ath a(sP) :WITE ERROR NUMBER IN CALL 
121 054402 162716 000002 SUB #2, (§P) sMOVE SP TO RETURN FOR ERROR 
122 054406 004736 JSR PC,a(SP)+ sREPORT ERROR VIA USE 

123 054410 162716 000010 SUB #10, (SP) sMOVE SP BACK TO NO ERROR 
126 054414 000240 NOP 

125 “REPORT ERROR IF RMDS NOT INITIALIZED 

126 054416 013737 001346 001142 2358: RMDS1,$BDDAT sTEST DRIVE STATUS REGISTER 
127 054426 042737 177177 001142 Bit #°CCDRY!DPR>, SBDDAT 

128 054432 012737 000600 001140 MOV #DPR'DRY,SGDDAT ;EXPECTED DRIVE STATUS 

729 054440 023737 001140 001142 CMP $GDDAT,SBDDAT = COMPARE EXPECTED g NECEIVED 
130 054446 0 14153 BEQ 228 ‘BRANCH IF EQUAL 

131 054450 062716 000004 ADD P) sMOVE SP TO USER'S ERROR CALL 
132 054454 112776 000134 000000 MOVB tiga a(sP) ‘WRITE ERROR NUMBER 

133 054462 162716 000002 SUB #2, (SP) :MOVE SP TO RETURN FOR ERROR 
134 054466 004736 JSR PC,a(SP)+ *REPORT ERROR TO USER 

135 054470 162716 000010 SUB #10, (SP) ‘MOVE SP BACK TO NO ERROR 
136 054474 000240 NOP 

137 054476 062716 000004 22$: ADD #4, (SP) :MOVE SP TO ERROR CALL 

138 054502 105776 000000 TSTB = AC SP) :WAS AN ERROE DETECTED?? 

139 054506 001403 BEQ 23$ NO! 

140 054510 062716 000004 ADD #4, (SP) an tt - MOVE TO ERROR RETURN 
141 Beee's 000402 BR 4$ 

142 054516 iperis 000004 23%: SUB #4, (SP) sMOVE SP 10 NO ERROR RETURN 
143 054522 00024 24$: NOP 

146 054524 000207 RTS PC 
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1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 054526 

f 

18 054526 062716 000004 
19 054532 105076 000000 
9 054536 162716 000004 
22 
23 054542 032737 000100 
24 054550 001024 
25 054552 013737 001346 
26 054560 052737 000100 
27 054566 013737 001346 
28 054574 062716 000004 
29 054600 112776 000155 
30 0546 162716 000002 
31 054612 004736 
32 054614 162716 000010 
33 054620 000240 
34 054622 
35 
36 
37 054622 032737 010000 
38 054630 001024 
39 054632 013737 001346 
40 054640 052737 010000 
41 054646 013737 001346 
42 054654 062716 000004 
43 054660 112776 000041 
44 054666 162716 000002 
45 054672 004736 
46 054674 162716 000010 
47 054700 000240 
48 054702 
a 
50 

51 054 rosy 032737 060007 
52 054710 001570 
50 

55 054712 032737 040000 
56 054720 001426 
57 054722 013737 001350 
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-SBTTL PACK ACKNOWLEDGE STATUS 


SEQ 0219 
CHECK 


;THIS SUBROUTINE CHECKS .": RESULTS OF A PACK ACKNOWLEDGE 


COMMAND USING THE STATUS 


STORED IN THE GET 


BUFFER. ERRORS ARE 


REPORTED TO THE USER VIA THE USER'S ERROR CALL. 


s CALL: 
(1) SR PC,ACKSTS 
; BR 273 
: =. NOP 
; = ERROR 
> see PC,a(SP)+ 
: 27? 
ACKSTS: 
SCLEAR USER" S ERROR CALL 
#4, (SP) 
CLRB a(SP) 
SUB #4, (SP) 
;REPORT AN ERROR IF ‘'vv'' IS 0 
001346 BIT #VV,RMDSI 
BNE 1$ 
001140 MOV RMDS1,$GDDAT 
001140 BIS #VV,$GDDAT 
001142 MOV RMDS1,$BDDAT 
ADD #4, (SP) 
000000 MOVB #155, a(SP) 
SUB #2, (SP 
JSR PC.a(SP)+ 
SUB #10, (SP) 
NOP 
1$: 
;REPORT AN ERROR IF "MOL" IS 0 
001346 BIT #MOL,RMDS1 
BNE 2$ 
001140 MOV RMDS1,$GDDAT 
001140 BIS #MOL ,$GDDAT 
001142 MOV RMOS I ,SBDDAT 
000000 MOVB a 5c3P) 
SUB #2, (SP) 
JSR PC.a(SP)+ 
SUB #10, (SP) 
NOP 
23: 
SEE If “UNS of . OPI”, "RMR", “ILR', 
001350 BIT 
BEQ 
:REPORT AN ERROR IF "UNS" 1S SET 
001350 gi! BUNS .R MERII 
001142 MOV RMERT1,SBDDAT 


RETURN HERE IF NO ERROR 

RETURN HERE TO REPORT AN ERROR 

ERROR NUMBER DEFINED BY SUB 

GO BACK TO SUB FOR MORE ERROR CHECKS 
RETURN HERE IF NO MORE ERRORS 


;MOVE SP TO ERROR CALL 
:;CLEAR LOW ORDER BYTE 
:MOVE SP BACK 


4 VOLUME VALID SET?? 
‘EXPECTED STATUS 


#RECEIVED STATUS 

sMOVE SP TO ERROR CALL 

;WRITE NUMBER IN ERROR CALL 
:MOVE SP TO RETURN FOR ERROR 
REPORT THE ERROR 

:MOVE SP BACK TO BRANCH 


tt A SET?? 
TEXPECTED STATUS 


sRECEIVED STATUS 

:MOVE SP TO ERROR CALL 

;WRITE NUMBER OF ERROR IN CALL 
;MOVE SP TO RETURN FOR ERROR 
;REPORT TH ERROR 

:MOVE SP TO BRANCH 


OR “‘ILF'* JS SET 


HUNS!OPI!RMR!ILR:ILF, oRMER1] 


:was UNS SET?? 
TRECEIVED STATUS 
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58 054730 013737 001350 
59 054736 042737 040000 
60 054744 062716 000004 
61 054750 112776 000042 
62 0547 162716 000002 
63 054762 004736 

64 054764 162716 000010 
65 054770 000240 

66 054772 

67 

68 

69 054772 032737 020000 
70 055000 001424 

71 055002 013737 001350 
72 055010 013737 001350 
73 055016 042737 020000 
74 055024 062716 000004 
75 055030 112776 000043 
76 055036 162716 000002 
77 055042 004736 

78 055044 162716 000010 
79 055050 000240 

80 05505 

; 

83 055052 032737 000004 
84 055060 001424 

85 055062 013737 001350 
86 055070 013737 001350 
87 055076 042737 000004 
88 055104 062716 000004 
89 055110 112776 000044 
90 055116 162716 000002 
91 055122 004736 

92 055124 162716 000010 
93 055130 000240 

94 055132 

95 

96 

97 eat, 032737 000002 
98 055140 001424 

99 055142 013737 001350 
100 055150 013737 001350 
10° 055156 042737 000002 
102 055164 062716 000004 
103 055170 112776 000045 
104 055176 162716 000002 
105 055202 004736 

106 055204 162716 000010 
107 055210 000240 

108 055212 

109 
110 

111 055212 032737 000001 
112 055220 001424 

113 055222 013737 001350 
114 055230 013737 001350 
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001140 MOV RMERII, SGDDAT sEXPECTED STATUS 
001140 BIC #UNS ,SGDDAT 
ADD #4, (SP) :MOVE SP TO ERROR CALL 
000000 MOVB #42, a(SP) WRITE NUMBER OF ERROR IN CALL 
SUB #2, (SP) ‘MOVE SP TO RETURN FOR ERROR 
JSR CacsP)¢ ‘REPORT THE ERROR VIA USER 
SUB #10, (SP) ‘MOVE SP TO NO ERROR RETURN 
3$: 
:REPORT ANY OPI ERROR 
001350 B11 HOPI ,RMER11 :WAS OPI SET 2? 
001142 MOV RMERI1,$BDDAT RECEIVED STATUS 
001140 MOV RMERI1,$GDDAT EXPECTED STATUS 
001140 BIC #OP1,$GDDAT 
ADD #4, (SP) sMOVE SP TO ERROR CALL 
000000 MOVB #48,a(SP) ‘WRITE NUMBER OF ERROR IN CALL 


SUB #2, (SP) 
JSR PC.a(SP)+ 
SUB #10, (SP) 


;MOVE SP TO RETURN FOR ERROR 
;REPORT THE ERROR VIA USER 
:MOVE SP TO NO ERROR RETURN 


NOP 
4$: 
:REPORT ANY RMR ERROR 
001350 BIT #RMR,RMERTI sWAS RMR SET?? 
BEQ 5$ NO! ! 
001142 MOV RMERII,$BDDAT RECEIVED STATUS 
001140 MOV RMERII,$GDDAT EXPECTED STATUS 
001140 BIC #RMR,SGDDAT 
ADD #4, (SP) :MOVE SP TO ERROR CALL 
000000 MOVB #44,a(SP) SWRITE NUMBER OF ERROR IN CALL 
SUB #2, (SP) MOVE SP TO RETURN FOR ERROR 
JSR PC a(SP)+ TREPORT THE ERROR VIA USER 
SUB #10, (SP) ‘MOVE SP TO NO ERROR RETURN 
N 
5$: 
:REPORT ANY ILR ERROR 
001350 BIT #ILR,RMERI1 :WAS ILR SET?? 
BEQ 6$ NO! ! 
001142 MOV RMERII,$BDDAT :RECEIVED STATUS 
001140 MOV RMERII,$GDDAT EXPECTED STATUS 
001140 BIC #ILR,SGDDAT 
ADD #4, (SP) :MOVE SP TO ERROR CALL 
000000 MOVB #45, a(SP) [WRITE NUMBER OF ERROR IN CALL 
SUB #2, (SP) [MOVE SP TO RETURN FOR ERROR 
JSR PC a(SP)+ [REPORT THE ERROR VIA USER 
SUB #10, (SP) :MOVE SP TO NO ERROR RETURN 
6$: 
:REPORT ANY ILF ERROR 
001350 BIT MILF RMERII :WAS ILF SET?? 
BEQ 7$ NO! 
001142 MOV RMER11,$BDDAT RECEIVED STATUS 
001140 MOV RMERII.$GDDAT EXPECTED STATUS 


SEQ 0220 


e- 
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PACK ACKNOWLEDGE STATUS 


~fleflelelelelelo) 


Coooco°c;“eoo 
MAMA 
WAMU 
WWAINWWW Pore 
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000207 


CHECK 
000001 
00000 
000046 
000002 


000010 


000004 
000000 


000004 
000004 
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001140 
000000 


7$: 
;AUGMENT RETURN 
AD 


8$: 
9$: 


MILF ,SGDDAT 
ia 


2 


MOVE SP TO ERROR CALL 


;MOVE 
sREPORT THE ERROR VIA USER 
:MOVE SP TO NO ERROR RETURN 


gery IF ERROR _WAS F OUND 
#4 ,(SP) 


a(SP) 
8$ 
#4 , (SP) 
9$ 

#4, (SP) 
PC 


MOVE SP TO ERROR CALL 
:WAS ERROR FOUND?? 
“NO! ! 


[YES = MOVE TO ERROR RETURN 
:MOVE SP TO NO ERROR RETURN 


SEQ 0221 


2 
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RECALIBRATE STATUS CHECK SUBROUTINE SEQ 0222 


~-SBTTL RECALIBRATE STATUS CHECK SUBROUTINE 


;THIS SUBROUTINE CHECKS THE RESULTS OF A - wipioapamaie OPERATION 
[USING THE STATUS STORED IN THE GET BUFFER 


1 
2 
3 
4 
g 
4 CALL: 
g =(1) JSR PC,RCLSTS :CALL SUBROUTINE 
9 ; BR 273 RETURN HERE IF NO ERROR 
10 : NOP RETURN HERE TO REPORT AN ERROR 
11 : ERROR ERROR NUMBER DEFINED BY SUB 
12 ; JSR PC,a(SP)+ GO BACK TO SUB FOR MORE ERROR CHECKS 
+ ; 22? RETURN HERE IF NO MORE ERRORS 
15 055322 RCLSTS: 
17 ;CLEAR USER'S ERROR NUMBER 
18 055322 062716 000004 ADD #4, (SP) 
19 055326 105076 000000 CLRB = (SP) ZCLEAR USER'S ERROR CALL 
y 055332 162716 000004 SUB a4, (SP) ;MOVE SP BACK TO BRANCH 
22 
23 :SEE IF “‘PAR'' OR “‘ILF'’ OR “‘OPI'’ OR “‘IAE’’ IS SET 
24 055336 032737 022011 001350 BIT #OPI'PAR!ILF!1AE,RMER1] 
: 055344 001553 BEQ 4$ sNONE ARE SET - GO TO NEXT CHECK 
27 ;REPORT _ANY MASSBUS {CONTROL BUS PARITY ERROR, |!.E., 
28 : "PAR = 1 AND ‘'DPE"’ 0 
29 055346 032737 000010 001350 “BIT #PAR,RMERT1 :WAS "PAR" SET?? 
30 055354 001430 BEQ 1$ NO! 
31 055356 032737 000010 001376 BIT #DPE ,RMER2I ;WAS “uppee SET?? 
32 055364 001024 BNE 1$ YES - NOT A REGISTER ERROR 
33 055366 013737 001350 001140 MOV RMER11,$GDDAT EXPECTED STATUS 
34 055374 042737 000010 001140 BIC #PAR,SGDDAT 
35 055402 013737 001350 001142 MOV RMERi I. $BDDAT RECEIVED STATUS 
36 055410 062716 000004 ADD (SP) ;MOVE SP’ TO USER'S ERROR CALL 
37 055414 112776 000050 000000 MOVB "3 56,3 ;WRITE ERROR NUMBER IN CALL 
38 055422 162716 000002 SUB a *MOVE SP TO RETURN FOR ERROR 
39 055426 004736 JSR SP)+ :GO REPORT ERROR 
40 055430 162716 000010 SUB Pcsats P) ;MOVE SP BACK TO BRANCH 
41 055434 000240 NOP 
42 055436 1$: 
44 ;REPORT ANY “‘ILF*’ ERROR 
45 055436 032737 000001 001350 BIT MILF ,RMERII :WAS “ILF'’ SET?2 
46 055444 001424 BEQ 2$ sNO!! 
47 055446 013737 001350 001140 MOV norg pl Pees mi sEXPECTED STATUS 
48 055454 042737 000001 001140 BIC #ILF ,$GDDAT 
49 055462 013737 001350 001142 MOV RnER(T SBDDAT sRECEIVED STATUS 
50 055470 062716 000004 ADD (SP) :MOVE SP TO USER'S ERROR CALL 
51 055474 112776 000071 000000 MOVB wrt a (SP) sWRITE ERROR NUMBER IN CALL 
52 055502 162716 000002 SUB #2, (SP) MOVE SP TO RETURN FOR ERROR 
53 055506 004736 JSR PC.a(SP)¢ “REPORT ERROR VIA USER 
54 055510 162716 000010 SUB #10, (SP) :MOVE SP BACK TO BRANCH 
55 055514 000240 NOP 
36 055516 2$: 
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RECALIBRATE STATUS CHECK SUBROUTINE SEQ 0223 

58 ;REPORT ANY "'OPI'' ERROR AS 

59 ; . OP] DUE TO "MOL" = 

60 ; . OP] BECAUSE ON CYLINDER LATCH DIDN'T RESET 

61 055516 032737 020000 001350 BIT #OPI,RMERTI sWAS OPI SET?? 

62 055524 001433 BEQ :NO!! 

63 055526 013737 001350 001140 MOV RMERI1,$GDDAT  ;EXPECTED STATUS 

64 055534 “042737 020000 001140 BIC #OPI,$GDDAT 

65 055542 013737 001350 001142 MOV RMER{I,$BDDAT ;RECEIVED STATUS 

66 055550 062716 000004 ADD #4, (SP) :MOVE SP TO USER'S ERROR CALL 
67 055554 112776 000072 000000 MOVB «#72, a(SP) ;WRITE ERROR NUMBER IN USER'S CALL 
68 055562 032737 010000 001346 BIT #MOL,RMDS1 :WAS "MOL" = 02? 

69 055570 001403 BEQ 3$ YES!! 

70 055572 112776 000073 000000 MOVB «#73, (SP) :NO = CHANGE ERROR NUMBER 

71 055600 162716 000002 3$: SUB #2, (SP) :MOVE SP TO RETURN FOR ERROR 
72 055604 004736 JSR PC. a(SP)+ ‘REPORT ERROR VIA USER 

73 055606 162716 000010 SUB #10, (SP) ‘MOVE SP BACK TO BRANCH 

74 055612 000240 NOP 

r5 055614 31S: 

77 ;REPORT AN ERROR IF "LAE'' IS SET 

78 055614 032737 002000 001350 BIT #IAE,RMER1I s1S "IAE' SET?? 

79 055622 001424 BEQ 4$ NO! ! 

80 055624 013737 001350 001140 MOV RMER11,$GDDAT EXPECTED STATUS 

81 055632 042737 002000 001140 BIC #IAE,$GDDAT 

82 055640 013737 001350 001142 MOV RMERII,$BDDAT  ;RECEIVED STATUS 

83 055646 062716 000004 ADD #4, (SP) :MOVE SP TO ERROR CALL 

84 055652 112776 000070 000000 MOVB = #70, (SP) :WRITE ERROR NUMBER IN USER'S CALL 
85 055660 162716 000002 SUB #2, (SP) :MOVE SP TO RETURN FOR ERROR 
86 055664 004736 JSR PC. a(SP)+ ‘REPORT ERROR 

87 055666 162716 000010 SUB #10, (SP) :MOVE SP BACK TO NO ERROR RETURN 
88 055672 000240 NOP 

89 055674 4$: 

91 ;SEE IF ‘'SKI'' OR “IVC'' OR “'DVC'' IS SET 

92 055674 032737 050200 001376 BIT #SKI'IVC!DVC,RMER2I 

93 055702 001517 BEQ 8$ :NONE OF THE BITS ARE SET 

95 

96 ;REPORT ANY “‘IVC’’ ERROR AS 

97 ; .IVC WITH VV = 0 

98 : -ERRONEOUS IVC ERROR 

99 055704 032737 010000 001376 BIT #1VC,RMERZI sWAS IVC SET?? 

100 055712 001433 BEQ 6$ NO! ! 
10? 055714 013737 001376 001140 MOV RMER2ZI1,$GDDAT :EXPECTED STATUS 

102 055722 042737 010000 001140 BIC #1VC,$GDDAT 

103 055730 013737 001376 001142 MOV RMERCI,$BDDAT  ;RECEIVED STATUS 

104 055736 062716 000004 ADD #4, (SP) :MOVE SP TO USER'S ERROR CALL 
105 055742 112776 000074 000000 MOVB #74, a(SP) :WRITE ERROR NUMBER IN CALL 
106 055750 032737 000100 001346 BIT #VV.RMDS1 :WAS VV = 0?? 

107 055756 001403 BEQ 5$ YES! ! 

108 055760 112776 000075 000000 MOVB #75, a( SP) [NO = CHANGE ERROR NUMBER 

109 055766 162716 000002 5$: SUB #2, (SP) :MOVE SP TO RETURN FOR ERROR 
110 055772 004736 JSR PC. a(sP)+ :REPORT ERROR VIA USER 

111 055774 162716 000010 SUB #10, (SP) :MOVE SP BACK TO BRANCH 

112 056000 000240 NOP 

113 056002 6$: 
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RECALIBRATE STATUS CHECK SUBROUTINE 


115 

116 056002 032737 040000 

117 056010 001424 

118 056012 013737 001376 

119 056020 042737 040000 
056026 013737 001376 
056034 062716 000004 
056040 112776 000076 
056046 162716 000002 
056052 004736 
056054 162716 000010 
056060 000240 
056062 


000200 
001376 


000002 
056134 162716 000010 


0 

1 

2 

3 

4 

5 

6 

7 

8 

9 

0 

1 

2 

3 

4 

5 

6 

7 

8 

9 

0 

1 

5 

4 056142 013746 001346 
5 056146 042716 047676 
$ 056152 022726 110100 
; 056160 000137 056574 
0 

; 

? 56164 032737 010000 
56174 032737 020000 
4 56204 013737 001346 
9 
0 
1 
2 
3 
4 
5 
6 
7 
8 
9 
0 
1 


56240 162716 000002 
56246 162716 000010 


000100 
010000 


001376 
001140 
001140 
001142 


000000 


001376 
001140 
001140 
001142 


000000 


001346 
001350 
001140 
001140 
001142 


000000 


001346 
001376 


:REPORT a "SKI'' ERROR 


;WAS | SKI SET?? 
SEXPECTED STATUS 


sRECEIVED STATUS 

MOVE SP TO os S ERROR CALL 
!WRITE ERROR NUMBER 

:MOVE SP TO RETURN FOR ERROR 


;REPORT ERROR VIA USER 
sMOVE SP TO BRANCH 


WAS ‘'DVC’’ SET?? 
=NO!! 
sEXPECTED STATUS 


#RECEIVED STATUS 

;MOVE SP TO USER'S ERROR CALL 
;WRITE ERROR NUMBER 

MOVE SP TO RETURN FOR ERROR 


“REPORT ERROR VIA USER 
sMOVE SP TO USER'S BRANCH 


““PIP’’ AND ‘'OM'’ ARE 0, AND ‘'ATA'',""MOL'’ AND ‘‘yv'’ ARE 1 


;PUT RMDS ON STACK 


#°C<PIP!MOL!VV!OM!IATA>, (SP) 


Q AND OPI] = 0, 1.E., MEDIUM WENT OFF 
:D1D MOL DROP?? 
sNO!! 


NO!! 

2 WAS OP] ERROR REPORTED?? 
YES = DON'T REPORT MOL = 0 

SEXPECTED STATUS 


erie STATUS 


TO USER'S ERROR CALL 
i WR ITE ERROR NUMBER 

;MOVE SP TO RETURN FOR ERROR 
;REPORT ERROR VIA USER 


:MOVE SP BACK TO USER'S BRANCH 


IT #SKI,RMERZI 

BEQ 7$ 
MOV RMERZ1,$GDDAT 
BIC #SK1,S$GDDAT 
MOV RMERCI, $BDDAT 
ADD 4, (SP) 
MOVB  #76,a(SP) 
SUB 2, (SP) 
JSR PC. a(SP)+ 
SUB #10, (SP) 
NOP 

7$: 

:REPORT ANY "DVC’’ ERROR 
BIT #DVC,RMER2Z1 
BEQ 8$ 
MOV RMER2I gSGDDAT 
BIC #DVC, $GDDAT 
MOV RMERGI $BDDAT 
ADD P) 
MOVB wh stSP) 
SUB #2, (SP) 
JSR PC .a(SP)+ 
SUB #10, (SP) 
NOP 

8$: 

3SEE IF 
MOV RMDSI,-(SP) 
BIC 
CMP #ATA'MOL! VV. (SP) 4 
BNE 85$ 
JMP 13$ 

85$: 

:REPORT AN ERROR IF MOL = 

[LINE AFTER RECALIBRATE WAS INITIATED 
BIT #MOL,RMDS1 
BNE 9$ 
BIT #OP1,RMER11 
BNE 9$ 
MOV RMDS1,$GDDAT 
BIS #MOL,$GDDAT 
MOV RMDS1,$BDDAT 
ADD #4,(SP) :MOVE SP 
MOVB #100, a(SP) 
SUB #2, (SP) 
JSR PC a(SP)¢+ 
SUB #10, (SP) 
NOP 

9$: 

:REPORT 


“<p ERROR IF ‘'vv'' = 0 AND “IVC'’ = 0 


BNE 
BIT 


#vV,RMDSI 
#IVC,RMER2] 


:D1D. "vv'" DROP?? 


;NO! 
iUAS. THERE A IVC ERROR?? 


SEQ 0224 
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RECALIBRATE STATUS CHECK SUBROUTINE 


172 056272 001024 

173 056274 013737 001346 
174 056302 013737 001346 
175 056310 052737 000100 
176 056316 062716 000004 
177 056322 112776 000101 
178 056330 162716 000002 
179 056334 004736 

180 056336 162716 000010 
181 056342 000240 

182 056344 

183 

184 

185 056344 032737 100000 
186 056352 001024 

187 056354 013737 001346 
188 056362 052737 100000 
189 056370 013737 001346 
190 056376 062716 000004 
191 056402 112776 000102 
192 056410 162716 000002 
193 056414 004736 

194 056416 162716 000010 
ion 056422 000240 

197 056424 

198 

199 

200 


201 056424 032737 000001 


203 056434 013737 001346 
204 056442 042737 000001 

205 056450 013737 001346 
206 056456 062716 000004 
207 056462 112776 000103 
08 056470 162716 000002 
209 056474 004736 

210 056476 162716 000010 
211 056502 000240 

212 056504 

213 

214 

215 

216 056504 032737 020000 
217 056512 001430 

218 056514 032737 040000 
219 056522 001024 

220 056524 013737 001346 
221 056532 042737 020000 
222 056540 013737 001346 
223 056546 062716 000004 
224 056552 112776 000104 
225 056560 162716 000002 
226 056564 004736 

227 056566 162716 000010 
228 056572 000240 


BNE 10% 
001140 MOV RMDS1,$GDDAT 
001142 MOV RMDS1.$BDDAT 
001140 BIS #VV,$GDDAT 
ADD #4, (SP) 
000000 MOVB = #101, a(SP) 
SUB #2, (SP) 
JSR PC a(SP)+ 
SUB #10, (SP) 
NOP 
10$: 
;REPORT AN ERROR IF ATA IS NOT SE 
001346 BIT #ATA,RMDS1 
BNE 11$ 
001140 MOV RMDS1,$GDDAT 
001140 BIS HATA, $GDDAT 
001142 MOV RMDS I gSBDDAT 
000000 MOVB #162 acSP) 
SUB #2, (SP) 
JSR PC.a(SP)+ 
SUB #10, (SP) 
NOP 
11$: 


REPORT AN ERROR IF ‘'OM'’ IS NOT Z 
ALWAYS CLEAR OFFSET MODE 


001346 BIT #OM,RMDSI 
BEQ 12$ 
001140 MOV RMDS1,$GDDAT 
001140 BIC #OM,$GDDAT 
001142 MOV RMDS1,$BDDAT 
ADD #4, (SP) 
000000 MOVB #103,a(SP) 
SUB #2, (SP) 
JSR PC a(SP)+ 
SUB #10, (SP) 
NOP 
12$: 
;REPORT AN ERROR IF PIP’ IS STIL 
> CYLINDER 
001346 BIT #PIP,RMDSI 
BEQ 13$ 
001376 BIT #SK1,RMER21 
BNE 13$ 
001140 MOV RHDS $GDDAT 
001140 BIC P SGDDAT 
001142 MOV RMOsi. $BDDA 
ADD #4, (SP) POV SP 
000000 MOVB #104,a(SP) 
SUB #2, (SP) 
JSR PC.a(SP)¢ 
SUB #10, (SP) 
NOP 


;MOVE SP TO USER'S 
WRITE ERROR NUMBER IN CALL 
;MOVE SP TO RETURN FOR ERROR 


;MOVE SP BACK TO USER'S BRANCH 


;YES = DONT REPORT vv = 0 
EXPECTED STATUS 
RECEIVED STATUS 


ERROR CALL 


T 
tty ATA SET DURING RECALIBRATE?? 


Ss! 
:EXPECTED STATUS 
RECEIVED STATUS 


;MOVE SP TO USER'S ERROR CALL 
WRITE ERROR NUMBER IN CALL 


:MOVE SP TO USER'S BRANCH 


ERO BECAUSE RECALIBRATE SHOULD 


;WAS "'OM' RESET? 
TEXPECTED STATUS 


RECEIVED STATUS 
;MOVE SP TO USER'S ERROR CALL 
sWR ITE ERROR NUMBER 

MOVE SP TO RETURN 4 ERROR 


SREPORT ERROR VIA USE 
MOVE SP TO USER'S BRANCH 


ON, 1.E., DRIVE NOT ON 
ait DRIVE OFF CYLINDER?? 
WAS "SKI" DETECTED?? 


:YES-DONT REPORT ‘'PIP"' 
EXPECTED STATUS 


sRECEIVED STATUS 


TO USER'S ERROR CALL 


;WRITE ERROR NUMBER 
;MOVE SP TO RETURN FOR ERROR 


:MOVE SP BACK TO USER'S BRANCH 


SEQ 0225 


H 2 
CZRMMAO RMOS/3/2 FCTNL TST 1 MACRO V03.01 11-APR=-80 13:04:53 PAGE 30-4 
RECALIBRATE STATUS CHECK SUBROUTINE SEQ 0226 


329 056574 13$: 
231 :SEE 1F "ILR' OR ‘RMR’ OR "'UNS'' IS SET 

232 056574 032737 040006 0601350 BIT MILR'RMR'UNS ,RMERTI 

233 056602 001514 BEQ 16$ 

235 :REPORT AN ERROR IF “ILR'' IS SET 

236 056604 032737 000002 001350 BIT #ILR,RMERII :WAS ILR SET DURING RECALIBRATE?? 
237 056612 001424 BEQ 14$ “NO! ! 

238 056 013737 001350 001140 MOV RMER1 | gSGDDAT ‘EXPECTED STATUS 

239 056622 042737 000002 001140 BIC #1LR,$GDDAT 

240 oeee 80 013737 001350 001142 MOV ReeR{T. SBDDAT ;RECEIVED STATUS 

241 056636 062716 000004 ADD #4 (SP HOVE SP’ TO USER'S ERROR CALL 

242 056642 112776 000105 000000 MOvB «#105, :WRITE ERROR NUMBER IN CALL 
243 056650 162716 000002 SUB #2, ( tee) ‘MOVE SP TO RETURN FOR ERROR 
244 056654 004736 JSR PC.a(SP)+ 

245 056656 162716 000010 SUB #10, (SP) :MOVE SP TO USER'S BRANCH 
246 056662 000240 NOP 

247 056664 14$: 

249 ;REPORT AN ERROR IF ‘'RMR'' IS SET 

250 056664 032737 000004 001350 BIT #RMR,RMERII :WAS RMR SET?? 

251 056672 001424 BEQ 15$ NO! ! 

252 056674 013737 001350 001140 MOV RMER1I1,$GDDAT EXPECTED STATUS 

253 056702 042737 000004 001140 BIC #RMR, SGDDAT 

254 056710 013737 001350 001142 MOV RMER/ 1 s SBDDAT ;RECEIVED STATUS 

255 056716 062716 000004 ADD MOVE SP TO USER'S ERROR CALL 
256 056722 112776 000106 000000 MOVB H106, 9iSP) :WRI TE ERROR NUMBER IN USER'S CALL 
257 056730 162716 000002 SUB £2, (§P) MOVE SP TO RETURN FOR ERROR 
258 056734 004736 JSR PC,a(SP)+ “REPORT ERROR VIA USER 

259 056736 162716 000010 SUB #10, (SP) =MOVE SP TO USER'S BRANCH 
260 056742 000240 NOP 

261 056744 15$: 

263 :REPORT AN ERROR IF “'UNS'' IS SET AND ‘'DVC'' IS 0 

264 056744 032737 040000 001350 BIT #UNS ,RMER11 ;WAS UNSAFE ON?? 

265 056752 001430 BEQ 16$ :NO! 

266 056754 032737 000200 001376 BIT #OVC,RMERZI EAS. THERE A DEVICE CHECK?? 
267 056762 001024 BNE 16$ YES = DON'T REPORT UNSAFE 
268 056764 013737 001350 001140 MOV RMER11,$GDDAT  :EXPECTED STATUS 

269 056772 042737 040000 001140 BIC #UNS , $GDDAT 

270 057000 013737 001350 001142 MOV RMER{ 1. SBDDAT RECEIVED STATUS 

271 057006 062716 000004 ADD #4, (SP) “MOVE SP TO USER'S ERROR CALL 
272 057012 112776 000107 000000 MOVB «#107, a(SP) ;WRITE ERROR NUMBER 

273 057020 162716 000002 SUB #2, (SP) “MOVE SP TO RETURN FOR ERROR 
274 057024 004736 JSR PC .a(SP)+ “REPORT ERROR VIA USER 

275 057026 162716 000010 SUB #10, (SP) *MOVE SP BACK TO USER’ S BRANCH 
276 057032 000240 NOP 

377 0 16$: 

279 SAUGMENT THE RETURN ADDRESS IF ANY ERROR WAS DETECTED 

280 057034 062716 000004 ADD #4, (SP) MOVE SP TO USER'S ERROR CALL 
281 057040 105776 000000 TSTB. —s_ a SP) ‘WAS "AN ERROR REPORTED?? 

282 057044 001403 BEQ 17$ :NO! 

283 057046 062716 000004 ADD #4,(SP) +t - AUGMENT SP RETURN 

284 057052 000402 BR 18 

285 057054 162716 000004 17$: SUB #4,(SP) ;NO ERROR - RETURN SP TO BRANCH 


= 
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286 057060 000240 18$: NOP 
+44 057062 000207 RTS PC STATUS CECK 1S COMPLETE 
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DRIVE CLEAR STATUS CHECK SUBROUTINE 
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-SBTTL DRIVE CLEAR STATUS CHECK SUBROUTINE 


D 


RVSTS: 


NOP 
ERROR 


JSR 
77? 


77? 


PC,a(SP)+ 


; CLEAR a ¥ S ERROR CALL 
#4, (SP) 


;REPORT 
4$: 


;REPORT 
5$: 


;REPORT 
6$: 


; REPORT 


Bs: 


RETURN HERE IF NO ERROR 

RETURN HERE TO REPORT AN ERROR 

ERROR NUMBER DEFINED BY SUB 

GO BACK TO SUB FOR MORE ERROR CHECKS 
RETURN HERE IF NO MORE ERRORS 


sMOVE SP TO or CALL 


CLRB a($P) [CLEAR ERROR CAL 
SUB #4, (SP) ‘MOVE SP TO USER’ S BRANCH 
ERROR IF RMCS1 NOT INITIALIZED 
MOV RMCS11,$BDDAT ;CHECK RMCS1 
BIC #°C<DVA!FNCMSK>, $BDDAT NELEAR DONT CARES 
MOV #DVA!DRVCLR, $GDDAT ‘EXPECT DVA 
CMP $GDDAT,$BDDAT ;COMPARE- EXPECTED & RECEIVED 
BEQ 6s ‘BRANCH IF EQUAL 
ADD (SP) ‘MOVE SP TO ERROR CALL 
MOVB nia a(SP) ‘WRITE NUMBER OF ERROR IN CALL 
SUB #2, (SP) ‘MOVE SP TO RETURN FOR ERROR 
JSR PC. a(SP)+ :REPORT THE ERROR VIA USER 
SUB #10, (SP) ‘MOVE SP TO NO ERROR RETURN 
ERROR IF RMDS NOT INITIALIZED, 

RMDSI,$BDDAT —__; CHECK 
Bic #PGM!OM!VV'!PIP, SBDDAT RE LEAR DONT CARES 
MOV #MOL'DPR!DRY.SGDDAT ‘EXPECT DRY & DPR 
CMP SGDDAT,SBDDAT  ;COMPARE EXPECTED € RECEIVED 
BEQ 6$ ‘BRANCH IF EQUAL 
ADD #4, (SP) ‘MOVE SP TO ERROR CAL 
MOVB #142, a(SP) ;WRITE NUMBER OF ERROR IN CALL 
SUB 2, (§P) MOVE SP TO RETURN FOR ERROR 
JSR PC.a(SP)+ “REPORT THE ERROR VIA USER 
SUB #10, (SP) ‘MOVE SP TO NO ERROR RETURN 
ERROR IF RMER1 NOT INITIALIZED 
CLR $GDDAT -EXPECT 0°S 
MOV RMER1I1,$BDDAT :CHECK RMER1 
BEQ 8$ ‘BRANCH IF EQUAL 
ADD #4, (SP) *MOVE SP TO ERROR CALL 
MOVB =: #143,a(SP) ;WRITE NUMBER OF ERROR !N CALL 
SUB #2, (SP) “MOVE SP TO RETURN FOR ERROR 
JSR PC.a(SP)+ ‘REPORT THE ERROR VIA USER 
SuB #10, (SP) ‘MOVE SP TO NO ERROR RETURN 
ERROR IF ATA NOT INITIALIZED 
MOV RMASI,$BDDAT : CHECK ATTENTION BIT 
MOV R1,-(SP) +:PUSH R1 ON STACK 
MOV R2,-(SP) *:PUSH R2 ON STACK 
MOV TSTQUE ,R1 
MOVB ——-1(R1) .R2 
BIC #°CATNMSK ,R2 
COM R2 
BIC R2,$BDDAT 


SEQ 0228 
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001142 
000004 
000144 
000002 


000010 


001360 


001140 
000004 
000145 
000002 


000010 


001374 


001140 
000004 
000146 
000002 
000010 
001140 
001402 
000004 
000150 
000002 


000010 


001376 
000004 
000147 
000002 


000010 
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000000 


001142 


000000 


001142 


000000 


>REPORT 
$s: 


15$: 
;REPORT 


18$: 
19$: 


NOP 
ERROR IF 
MOV 


NOP 
ERROR IF 
MOV 


CLR 
ERROR IF 
MOV 


NOP 
ERROR IF 
MOV 


(SP)+,R2 


#4, (SP) 

#144,a(SP) 
, (SP 

PC a(SP)+ 

#10, (SP) 


3;POP STACK INTO R2 

3;POP STACK INTO RI 

31S ATTENTION CLEARED?? 
;BRANCH IF ATTENTION CLEARED 
sMOVE SP TO ERROR CALL 

;WRITE NUMDER OF ERROR IN CALL 
sMOVE SP TO RETURN FOR ERROR 
;REPORT THE ERROR VIA USER 
sMOVE SP TO NO ERROR RETURN 


RMMR 1 od INITIALIZED 


RMMR11,$BDDA 
WWC!LS!LST,SBDDA 
#MWD ,SGDDAT 

“1 ‘epdhmaends 


#4, (SP) 
#145 ,a(SP) 
#2, (SP) 
PC a(SP)+ 
#10, (SP) 


; CHECK RMMR 

T ;CLEAR DONT CARES 
sEXPECT WRITE DATA ON 

COMPARE EXPECTED AND RECEIVED 
BRANCH IF ZERO 

MOVE SP TO ERROR CALL 

:WRITE NUMBER OF ERROR IN CALL 
:MOVE SP_TO RETURN FOR ERROR 
;REPORT THE ERROR VIA USER 
:MOVE SP TO NO ERROR RETURN 


RMMR2 NOT INITIALIZED 


RMMR21,$BDDAT 
#ROQA'ROB, SBDDAT 
#1ST'1777, $GDDAT 
SGDDAT, $BDDAT 


#4, (SP) 
#146,a(SP) 
#2, (SP) 
PC .a(SP)+ 
#10, (SP) 


SGDDAT 
RMEC2 NOT RESET 
ane Cel -BROAT 


#4, (SP) 
#150, a(sP) 
#2, (SP) 

PC a(SP)+ 
#16, (SP) 


RMER2 NOT RESET 
RMER21 ,$BDDAT 


#4, (SP) 
#147, a(SP) 
#2,( 

PC a(SP)+ 
#10, (SP) 


CHECK RMMR2 
CLEAR REQA, REQB 

EXPECT TEST BIT ON 
COMPARE EXPECTED & RECEIVED 
;BRANCH IF EQUAL 
Het | SP TO ERROR CALL 


:MOVE SP TO NO ERROR RETURN 
EXPECT ZEROS 


CHECK RMEC2 

sBRANCH IF 0 

MOVE SP TO ERROR CALL 

WRITE NUMBER OF ERROR IN CALL 
s;MOVE SP_TO RETURN FOR ERROR 
REPORT THE ERROR VIA USER 
sMOVE SP TO NO ERROR RETURN 


CHECK RMER2 

BRANCH IF NO ERROR 

:MOVE SP TO ERROR CALL 

WRITE NUMBER OF ERROR IN CALL 
;MOVE SP_TO RETURN FOR ERROR 
s;REPORT THE ERROR VIA USER 
MOVE SP TO NO ERROR RETURN 


SEQ 0229 


2 
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DRIVE CLEAR STATUS CHECK SUBROUTINE SEQ 0230 
115 :AUGMENT RETURN ADDRESS IF ANY ERROR WAS FOUND 
116 057636 062716 000004 ADD #4, (SP) MOVE SP TO ERROR CAL 
117 057642 105776 000000 TSTB. = @( §P) ‘WAS AN ERROR DETECTED ?? 
118 057646 001403 BEQ 21$ ‘NO! ! 
119 057650 062716 000004 ADD #4, (SP) ;YES =- MOVE SP TO ERROR RETURN 
120 057654 000402 BR 3§ 
121 057656 162716 000004 21$ SUB #4,(SP) ;MOVE SP BACK TO NO ERROR RETURN 
122 057662 000240 23$ NOP 
123 057664 000207 RTS PC :RETURN TO USER 


| 4 
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SEARCH STATUS CHECK SUBROUTINE SEQ 0231 


-SBTTL SEARCH STATUS CHECK SUBROUTINE 


sTHIS SUBROUTINE VERIFIES THE RESULTS OF SEARCH OPERATIONS USING 
STAT Ss tee IN THE GET BUFFER AND TEST CONDITIONS STORED IN THE 


sTHE SUBROUTINE RETURNS TO THE CALLING ROUTINE IF AN ERROR IS 
sDETECTED AFTER HAVING LOADED THE APPROPRIATE ERROR NUMBER IN 
;THE USER'S "ERROR" TRAP. 


1 
2 
3 
4 
5 
6 
7 
6 
10 
HI ;THE FOLLOWING CONDITIONS ARE CHECKED: 
13 : Y ERROR WHICH OCCURRED WHILE READING OR WRITING REMOTE 
1% REGISTERS” IS REPORTED, 1.€., "MCP 1 OR PAR’ = 1 
16 ."IAE"' STATUS IS CHECKED IN ACCORDANCE WITH [He VALUE DETERMINED 
7 7BY THE PROGRAM, WHICH IS BASED ON FORMAT AND ADDRESS 
19 ; OPI", IF SET, IS REPORTED AS 1) ‘OPI’ DUE TO MOL = 0, OR 2) 
$9 :OPI"' DUE TO ON CYLINDER LATCH. : 
22 : “IvC'', IF SET, 1S REPORTED AS 1) “‘IVC'' ERROR WITH VOLUME 
33 [VALID ZERO, OR 2) ERRONEOUS "‘IVC'’ ERROR WITH VOLUME VALID SET. 
25 : ."SKI'' 1S REPORTED IF SET 
27 : .""DVC' IS REPORTED IF SET 
9 : -AN ERROR 1S REPORTED IF "MOL" = 0, OR "PIP = 1, OR “ATA = 0, 
30 30R “wv'""= 0. 
31 3 
32 CALL 
33 :(1) JSR PC, SCHSTS 
3% 7(2) BR 2 RETURN HERE IF NO ERROR 
35 :(3) NOP RETURN HERE TO REPORT ERROR 
36 7(4) ERROR SUBROUTINE WILL LOAD ERROR # 
37 7(5) JSR PC,a(SP)+ GO BACK FOR MORE CHECKS 
3 3 (6) 2? RETURN AFTER ALL ERRORS REPORTED 
40 057666 SCHSTS: 
42 SCLEAR USER'S ERROR CALL 
43 057666 062716 000004 ADD #4, (SP) :MOVE SP TO USER" S ERROR CALL 
44 057672 105076 000000 CLRB ss aa $P) SCLEAR ERROR NUMBER 
45 057676 162716 000004 SUB #4, (SP) [MOVE SP BACK TO NO ERROR BR 
46 057702 005037 061230 CLR 206$ [CLEAR STATUS FLAGS 
48 ;TEST FOR MASSBUS CONTROL BUS PARITY ERROR WHEN WRITING REMOTE 
49 TREGISTERS, 1.£., PAR’ = 1 AND "DPE" 
50 057706 032737 000010 001350 BIT #PAR, RMERII ;WAS PARITY ERROR DETECTED?? 
51 057714 001431 BEQ 10$ :NO! ! 
52 057716 032737 000010 001376 BIT #DPE ,RMERZI WAS IT CONTROL BUS ERROR?? 
33 057724 001025 BNE 10$ [PROBABLY NOT! 
55 :REPORT CONTROL Bus PARITY ERROR VIA USER'S ERROR CALL 
56 057726 013737 001350 001140 MOV RMERII1,$GDDAT  ;EXPECTED STATUS 
57 057734 042737 000010 001140 BIC #PAR,$GDDAT 


eae N 
— CZRMMAO RMOS/3/2 FCTNL TST 1 MACRO VO3.01 11-APR-80 13:06:53 PAGE 3341 


SEARCH STATUS CHECK SUBROUTINE SEQ 0232 
| 58 057742 013737 001350 001142 MOV RMER II. x SBDDAT : RECEIVED STATUS 

59 057750 062716 000004 ADD (SP) SP TO USER'S ERROR CALL 
60 057754 112776 000050 000000 MOVB #96 -aCSP) tURITE ERROR NUMBER IN CAL 

61 057762 162716 000002 SUB #2, (SP) SMOVE as TO RETURN IF ERROR 
62 057766 004736 JSR PC_a(SP)+ ‘REPORT ERROR 

63 057770 162716 000010 SUB #10, (SP) sRESTORE SP TO NO ERROR 

64 057774 000240 NOP 

65 057776 000430 BR 15$ :SKIP FURTHER ERROR CHECKS 
66 060000 108: 

68 :TEST FOR MASSBUS CONTROL BUS PARITY ERROR WHEN READING REMOTE 
69 SREGISTERS, 1.£., “MCPE' = 1, 

70 660000 032737 020000 001334 BIT #MCPE,RMCS11 ; WAS PARITY ERROR DETECTED?? 
4 060006 001426 BEQ 208 NO! ! 

73 ;REPORT CONTROL BUS PARITY ERROR VIA USER'S ERROR CALL. 

74 060010 013737 001334 001140 MOV RMCS11,$GDDAT  ;EXPECTED STATUS 

75 060016 042737 020000 001140 BIC #MCPE ,$GDDAT 

76 060024 013737 001334 001142 MOV RACSII sSBDDAT sRECEIVED STATUS 

77 060032 062716: 00004 ADD MOVE SP TO USER'S ERROR CALL 

060036 112776° 000013 000000 MOVB ath SSP) :WRI TE ERROR NUMBER 

79 060044 162716 000002 SUB #2, (SP) MOVE SP TO RETURN IF ERROR 
80 060050 004736 JSR PC,a(SP)+ “REPORT ERROR AND RETURN 

81 060052 162716 000010 SUB #10, (SP) ‘RESTORE SP TO NO ERROR 

82 060056 000240 NOP 

83 060060 000137 061202 15$: MP 150$ :OMIT STATUS CHECKING 

8% 060064 20$: 

86 ;DETERMINE THE VALUE OF “‘IAE'' STATUS BASED ON TRACK, SECTOR AND CYLINDER 
87 ‘ ALSO SET "SKI" FLAG IF CYLINDER ADDRESS Is TOO LARGE. 

8B 060064 012737 002000 001140 MOV #IAE,SGDDAT :SETUP FOR IAE = . 

89 060072 052737 040000 061230 81S #SKI,200$ : SETUP FOR SKI = 1 

90 060100 023727 001444 001466 CMP RMDCO, #822. ‘GREATER THAN LAST CYLINDER ? 
91 060106 101025 BHI 3 YES = CYLINDER IS INVALID 

92 060110 042737 040000 061230 BIC #SK1,200$ :"'SKI'' SHOULD BE ZERO 

94 060116 123737 003417 001333 CMPB = RMDAO+1,LSTRK*+1 ;GREATER THAN LAST TRACK ? 

95 060124 101016 BHI 305 [YES = TRACK IS INVALID 

97 060126 123727 001416 000035 CMPB  —s- RMDAO, #29. :SECTOR > 29. ? 

98 060134 101410 BLOS NO 

99 060136 032737 010000 001442 BIT #FMT16,RMOFO 318. BIT FORMAT ? 

100 050144 001406 BEQ 30$ “YES = SECTOR. 1 INVALID FOR 18 BIT MODE 
10? 060146 123727 001416 000037 CMPB = RMDAO,, #31. :SECT OR > 31. 

102 060154 101002 BH] 30$ “YES = SECTOR is INVALID 
104 060156 005037 001140 25$: CLR SGDDAT :IAE"' SH@ULD = 0 

106 COMPARE nEXPECTED AND RECIVED “IAE'’ STATU 

107 060162 013737 001350 001142 808: RMERI1,$BDDAT  ;GET RECEIVED 1AE 

108 060170 042737 175777 001142 BIC #°CIAE,SBDDAT 

109 060176 023737 001140 001142 CMP S$GDDAT.SBDDAT 1S JAE CORRECT?? 

110 060204 001004 BNE 40$ TNO! ! 

111 060206 042737 040000 061230 BIC #SK1, 2008 >SKi SHOULD BE ZERO 

112 060214 000413 BR 50% 
113 060216 40$: 


r _ 
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060404 013737 001376 
060412 062716 000004 
060416 112776 000264 
060424 032737 000100 
060432 001403 

060434 112776 000265 
060442 162716 000002 
060446 004736 

060450 162716 000010 
060454 000240 

060456 

060456 032737 000200 
060464 001424 

060466 013737 001376 
060474 042737 000200 
060502 013737 001376 
060510 062716 000004 
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;REPORT INCORRECT IAE STATUS VIA USER'S ERROR CA 
ADD (SP) :MOVE SP TO USER'S ERROR CALL 
000000 MOVB #257,a(SP) ;WRITE ERROR NUMBER IN CALL 
SUB #2, (SP) VE SP TO RETURN IF ERROR 
JSR PC a(SP)+ ‘REPORT ERROR AND RETURN 
SUB #16, (SP) ‘RETURN SP TO NO ERROR 
50$: 
pSEE IF ''SKI'' OR "'DVC'' OR "IVC'' IS SET 
001376 BI #SKIIDVC!1VC, -RMERI GARE ANY BITS SET?? 


;REPORT — IF "’SKI'' 1S SET AND ‘‘SKI"' FLAG IS NOT SET 


001142 RMER2Z1,$BDDAT  ;RECEIVED ''SKI'' STATUS 
001142 BIC #*CSKI,$BDDAT 
001140 MOV 200$,$GDDAT sEXPECTED "'SKI'' STATUS 
001140 BIC #*°CSKI,$GDDAT 
001142 CMP $GDDAT,$BDDAT 31S "SKI" OK? 
BEQ 60s  YES-CHANGE ERROR NUMBER 
ADD , (SP) ‘MOVE SP TO USER'S ERROR CALL 
000000 MOVB #263. a(SP) ‘WRITE ERROR NUMBER 
001140 BIT #SKI, ‘$GDDAT : SHOULD "SKI'' BE SET?? 
000000 MOVB  #267,a(SP) :YES=CHANGE ERROR NUMBER 
55$: SUB #2, (SP) ‘MOVE SP TO RETURN IF ERROR 
JSR PC.a(SP)+ ‘REPORT ERROR AND RETURN 
SuB #10, (SP) sRESTORE SP TO NO ERROR 
60$: 
;REPORT "IVC'' ERROR AS 
: .1VC DUE TO LOSS OF VOLUME VALID 
; “ERRONEOUS IVC WITH VOLUME VALID SET 
001376 BIT #IVC,RMERZ1 :1S 1VC SET?? 
BEQ 80$ ‘NO! 
001140 MOV RMER21,$GDDAT S EXPECTED STATUS 
001140 BIC #1VC, $GDDAT 
001142 MOV RMER21, SBDDAT ;RECEIVED STATUS 
ADD #4, (SP) “MOVE SP TO USER'S ERROR CALL 
000000 MOVB #264,a(SP) [WRITE ERROR NUMBER IN CALL 
001346 BIT HV RAIDS zUAS, VOLUME VALID?? 
000000 MOVB #265,a(SP) :YES = CHANGE ERROR NUMBER 
70$: SUB #2, (SP) MOVE SP TO RETURN IF ERROR 
JSR PC.a(SP)+ “REPORT ERROR AND RETURN 
SUB #10, (SP) sRESTORE SP TO NO ERROR 
80$: 
:REPORT ANY DEVICE FAULT 1.E., "DVC'' = 
001376 B11 #DVC .RMERZI iWAS THERE A DEVICE FAULT?? 
001140 MOV RMER2I, SGDDAT SEXPECTED STATUS 
001140 BIC #DVC, SGDDAT 
001142 MOV RMERSI SBDDAT  ;RECEIVED STATUS 
ADD #4, (SP) ‘MOVE SP TO USER'S ERROR CALL 


SEQ 0233 


- 
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SEARCH STATUS CHECK SUBROUTINE SEQ 0234 
172 060514 112776 000266 000000 MOVB #266,a(SP) ;WRITE ERROR NUMBER IN CALL 
173 060522 162716 000002 $UB #2, (SP) ‘MOVE SP TO RETURN IF ERROR 
174 060526 004736 JSR PC,a(SP)+ sREPORT ERROR AND RETURN 
175 060530 162716 000010 SUB #10, (SP) sRESTORE SP TO NO ERROR 
176 060534 000240 NOP 
177 060536 90$: 

179 ;REPORT ANY "“OPI'’ ERROR AS 

180 : OPI" BECAUSE MEDIUM IS NOT ONLINE 

181 3 OP1'' BECAUSE ‘ON CYLINDER’ DIDN'T DROP 

182 060536 032737 020000 001350 BIT #OP1,RMER1I ;WAS OPI SET?? 

183 060544 001433 BEQ 110$ ‘NO 

184 060546 013737 001350 001140 MOV RMER1I SGDDAT + EXPECTED STATUS 

185 060554 042737 020000 001140 BIC #OP1 

186 060562 013737 001350 001142 MOV RnERAT. SBDDAT ;RECEIVED STATUS 

187 060570 062716 000004 ADD Pj MOVE SP TO USER'S ERROR CALL 
188 060574 112776 000270 000000 MOVB $30 a(SP) SETUP ERROR FOR MOL = 0 

189 060602 032737 010000 001346 BIT #MOL.RMDS1 ‘WAS MOL 0?? 

190 060610 001403 BEC 105$ SYES!! 

191 060612 112776 000271 000000 MOVB #271,a(SP) ‘MOL WAS 1 = CHANGE ERROR 

192 060620 162716 000002 105$: SUB #2, (§P) sMOVE SP TO RETURN IF ERROR 
193 060624 004736 JSR PC,a(SP)+ ;REPORT ERROR AND RETURN 

194 060626 162716 000010 SUB #10, (SP) SRESTORE SP TO NO ERROR 

195 060632 000240 NOP 

196 060634 1108: 

198 sSEE IF “‘ATA'' = ‘'MOL'’ = ‘'vv'' = 1 AND ''PIP’' = 0 

199 060634 013746 001346 MOV RMDSI,-(SP) 3GET DRIVE STATUS 

200 060640 042716 047677 BIC #°C<ATA!PIP!MOL! VV>, (SP) 

201 060644 022726 110100 CMP MATA!MOL! VV, (SP)+ 31S DRIVE STATUS CORRECT?? 
202 060650 001554 BEQ 150$ SYES!! 

204 ;REPORT AN ERROR IF MOL = O AND OP] ERROR WAS NOT REPORTED, I1.E., OPI = 0 
205 060652 032737 010000 001346 BIT #MOL,RMDS1 s;WAS MEDIUM OFF LINE?? 

206 060660 001030 BNE 120$ NO! ! 

207 060662 013737 001346 001140 MOV RMDSI,$GDDAT sEXPECTED STATUS 

208 060670 052737 010000 001140 BIS #MOL , $GDDAT 

209 060676 013737 001346 001142 MOV RMDSI, SBDDAT sRECEIVED STATUS 

210 060704 032737 020000 001350 BIT #OPI, RMERII ;WAS OP] REPORTED BEFORE?? 
211 060712 001013 BNE 208 [YES = DON'T REPORT MOL = 0 
212 060714 062716 000004 ADD (SP) sMOVE SP TO USER'S ERROR CALL 
213 060720 112776 000272 000000 MOVB 43h) a(sP) ‘WRITE ERROR NUMBER IN CALL 
214 060726 162716 000002 SUB #2, (SP) :MOVE SP TO RETURN IF ERROR 
215 060732 004736 JSR PC,a(SP)+ sREPORT ERROR AND RETURN 

216 060734 162716 000010 SUB #10, (SP) ;RESTORE SP TO NO ERROR 

217 060740 000240 NOP 

218 060742 1208: 

220 ;REPORT AN ERROR IF PIP IS STIL SET AND SK] IS RESET 

221 060742 032737 020000 001346 BIT #PIP,RMDSI 31S POSITIONING IN PROGRESS?? 
222 060750 001430 REQ 130$ NOL! 

223 060752 032737 040000 001376 BIT #SKI,RMERZI [WAS "'SKI'’ DETECTED?? 

224 060760 001024 BNE 130$ sYES-DONT REPORT PIP 

225 060762 013737 001346 001140 MOV RMDS1,$GDDAT sEXPECTED STATUS 

226 060770 042737 020000 001140 BIC #PIP,$GDDAT 

227 06077 013737 001346 001142 MOV RMDSI, $BODAT sRECEIVED STATUS 

228 061004 062716 000004 ADD #4, (SP) sMOVE SP TO USER'S ERROR CALL 
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SEARCH STATUS CHECK SUBROUTINE 
229 061010 112776 000273 


230 061016 162716 000002 

231 061022 004736 

232 061024 162716 000010 

233 061030 000240 

234 061032 

235 

236 

237 061032 032737 000100 

238 061040 001030 

239 061042 032737 010000 

240 061050 001024 

241 061052 013737 001346 

242 061060 052737 000100 

243 061066 013737 001346 

244 061074 062716 000004 

245 061100 112776 000350 

246 061106 162716 000002 

247 061112 004736 

248 061114 162716 000010 

249 061120 000240 

250 061122 

251 

252 

253 061122 032737 100000 

254 061130 001024 

255 061132 013737 001346 

256 061140 052737 100000 

257 061146 013737 001346 

258 061154 062716 000004 
9 061160 112776 000351 

260 061166 162716 000002 

261 061172 004736 

262 061174 162716 000010 

263 061200 000240 

264 061202 

265 

26 


6 
267 061202 062716 000004 
268 061206 105776 000000 


2 
270 061214 062716 000004 
06122 


1 
272 061222 162716 000004 
273 061226 000207 


275 061230 000000 
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000000 


001346 
001376 
001140 
001140 
001142 


000000 


001346 
001140 
001140 
001142 


000000 


1308: 
;REPORT 


1408: 
REPORT 


150$: 


ARGUMENT THE RETURN ADDRESS IF 
AD #4, (SP) 


140 
#I1VC,RMER2Z] 
140$ 


RMDS1,$GDDAT 


#VV ,SGDDAT 


RMDS1,$BDDAT 
4, (SP) 


# 
#350,a(SP) 
#2, (SP) 


PC .a(SP)+ 
#10, (SP) 


AN ERROR IF ATTENTION IS NOT aa 
B #ATA,RMDSI iIS A 


RMDS1,$GDDAT 


MATA, SGDDAT 


RMDSI ,$BDDAT 


#4, (SP) 
#351,a(SP) 
#2, (SP) 
PC a(SP)+ 
#10, (SP) 


a(sP) 
160$ 
#4,(SP) 
170$ 
#4, (SP) 
PC 


;WRITE ERROR NUMBER y CALL 
;MOVE SP TO RETURN IF ERROR 


V 
;REPORT ERROR AND RETURN 


sRESTORE SP TO NO ERROR 


AN_ERROR IF VOLUME 1S NOT VALID AND IVC = 0 
B AVV ,RMDSI il 


S VOLUME VALID?? 


s YES! 
;WAS ive DETECTED?? 

;YES = DON'T REPORT vv = 0 
SEXPECTED STATUS 


RECEIVED STATUS 

MOVE SP TO USERS ERROR CALL 
WR ITE ERROR NUMBER IN CALL 
MOVE SP TO RETURN IF ERROR 


“REPORT ERROR AND RETURN 
sRESTORE SP TO NO ERROR 


TA ON?? 
:YES! 
‘EXPECTED STATUS 


Bit abs STATUS 

VE SP TO USER'S ERROR CALL 
SWRITE ERROR NUMBER IN CALL 
MOVE SP TO RETURN IF ERROR 


SREPORT ERROR AND RETURN 
RESTORE SP TO NO ERROR 


AN ERROR WAS DETECTED 


MOVE SP TO USER’ ; ERROR CALL 
:WAS ,ERROR FOUND?? 


NO! 
YES, ~ CHANGE RETURN 


;NO ERROR FOUND 
;RETURN TO USER 


STORAGE FOR FLAGS 


SEQ 0235 


3 
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STATIC DRIVE STATUS CHECK SUBROUTINE SEQ 0256 


: -SBTTL STATIC DRIVE STATUS CHECK SUBROUTINE 
3 THIS SUBROUTINE LOOKS FOR UNEXPECTED CHANGES IN DRIVE 
4 STATUS, SUCH AS THE DRIVE LOSING VOLUME VALID. THE SUBROUTINE 
5 ;CAN BE USED BY HOUSEKEEPING AND OTHER COMMANDS DURING WHICH THERE 
$ :SHOULD NOT BE ANY DRIVE ERRORS OR CHANGES IN STATE. 
HA eaten CONDITIONS ARE TESTED AND REPORTED AS ERRORS 
10 . 
13 ? -MOL = 0, INDICATES DRIVE WENT OFFLINE, NOTE 
12 THAT MOL IS ASSUMED TO HAVE BEEN SET 
13 ; -VV_ = 0, INDICATES THE DRIVE LOST VOLUME VALID 
14 ; “PIP = {, INDICATES THAT THE DRIVE IS OFF CYLINDER 
15 : .SKI = 1, INDICATES THE DRIVE HAS AN UNEXPECTED SKI ERROR 
1 : ; DvC = 1, INDICATES AN UNEXPECTED DEVICE FAULT 
18 ; THE SUBROUTINE IS CALLED AFTER STORING STATUS IN THE GET BUFFER. 
20 74) JSR PC, STCDRVSTS 
21 ; BR 22? RETURN HERE IF NO ERROR 
22 : NOP RETURN HERE TO REPOR1 AN ERROR 
23 ; ERROR ERROR NUMBER DEFINED BY SUB 
24 ; JSR PC,a(SP)+ GO BACK TO SUB FOR MORE ERROR CHECKS 
$ : 72? RETURN HERE IF NO MORE ERRORS 
$e 061232 STCDRVSTS: 
29 CLEAR USER" S ERROR CALL 
30 061232 062716 000004 ADD #4,(SP) :MOVE SP TO USER'S ERROR CALL 
31 061236 105076 000000 CLRB a(sP) iCL LEAR ERROR NUMBER 
32 061242 162716 000004 SUB #4, (SP) MOVE SP BACK TO NO ERROR RETURN 
33 sSEE IF “MOL’’ = ‘‘vv’’ = 1, AND’ pip’ = 0 
34 061246 013746 001346 MOV RMDS1,-(SP) ;PUT DRIVE STATUS ON STACK 
35 061252 042716 147677 BIC #°C<PIP!MOL! VV>, (SP) 
36 061256 022726 010100 CMP WMOL'VV,(SP)+  ;ARE MOL,VV AND PIP 0.K.?? 
4 061262 001524 BEQ 308 YES! ! 
39 ;REPORT AN ERROR IF MOL = 0 AND “‘OPI'' = 0 
40 061264 032737 010000 001346 BIT #MOL ,RMDS1 :1S MOL ON ?? 
41 061272 001030 BNE 10$ ;YES! : 
42 061274 032737 020000 00135) BIT #OP1,RMERII :WAS opy SET?? : 
43 061302 001024 BNE 10$ YES-DONT REPORT "MOL" = 0 
44 061304 013737 001346 001140 MOV RMDS1,$GDDAT EXPECTED STATUS 
45 061312 052737 010000 001140 BIS #MOL ,SGDDAT 
46 061320 013737 001346 001142 MOV RHDSI . SBDDAT RECEIVED STATUS 
47 061326 062716 000004 ADD (SP) ;MO E SP TO USER'S ERROR CALL 
48 061332 112776 000207 000000 MOVB #367" a(SP) ;WRITE ERROR NUMBER IN CALL 
49 061340 162716 000002 SUB #2, (SP) [MOVE SP TO RETURN FOR ERROR 
50 061344 004736 JSR PC,a(SP)+ ;REPORT ERROR VIA USER 
51 061346 162716 000010 SUB #16, (SP) :MOVE SP BACK 10 NO ERROR RETURN 
52 061352 000240 NOP 
2? 061354 10$: 
55 ;REPORT AN ERROR IF VOLUME VALID 1S NOW ZERO AND “‘IvC'' = 0 
56 061354 032737 000100 001346 BIT #VV,RMDSI 31S ‘vv'' = 02? 
57 061362 001030 BNE 208 sNO!! 


58 061364 
59 (61372 
60 061374 


61 

62 061410 

63 061416 
061422 


69 061444 


72 061444 


85 061534 


88 061534 
89 061540 
90 061544 
91 061546 


—— = -OOOCOSC0COC0CC ND 
GOoOonoon 


Fwn OC OOnwO UV Fwn-200 


a et ee ed os at et et 
S333ssss 


oo" DOCOO00oO 
Oooo oO" Ow 
ON & NN NWRWw— Fo 
QQ NON 
SWS SS Www 
OOO CONNNE 


000240 


013746 


o-o——-Go0o0°00do 
oooo—-O—f Ow 
On & MMR wrw—r 
QE 
Wwe ss Ss nro 
OOOO nnwe~ 


—OoDoo°ceo 
=—O— fF -Ow 
MRIWwRw—f 
ANNE 
NA ow 
oon 
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010000 
001346 


000002 
000010 


020000 
040000 
001346 


000002 
000010 


000200 
001376 


000002 
000010 


040000 
001376 


000213 
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001376 
001140 
001346 
001142 


000000 


001346 
001376 
001140 
001140 
001142 


000000 


001376 
001140 
001140 
001142 


000000 


001376 
001140 
001140 
001142 


000000 


208: 
;REPORT 


30$: 
SEE IF 


40$: 
;REPORT 


50$: 
;REPORT 


BIT #IVC,RMERZ1 
0$ 


MOV RMDS1,$GDDAT 
BIS AVV,RMDSI 
MOV RMDS1,$BDDAT 


ADD #4,(SP) ;MOVE SP 
MOVB = #210, a( SP) 

SUB #2, (SP) 

JSR PC.a(SP)+ 

SUB #10, (SP) 

NOP 


BIT #SKI,RMERZ1 
30$ 


MOV RMDSI ,$GDDAT 
BIC #PIP,SGDDAT 
MOV RMDS1,$BDDAT 
#4, (SP) 
#211,a(SP) 
SUB #2, (SP) 


JSR PC.a(SP)+ 
SUB #10, (SP) 


“—<7"" ~ “Svc” es 0 
MOV RMER21,-(SP) 


MOV RMER21,$GDDAT 
BIC #DVC, $GDDAT 
MOV RMERSI. SBDDAT 


ADD 
MOVB w2ie. a(sP) 
SUB #2, (SP) 

JSR PC.a(SP)+ 

SUB #10, (SP) 

NOP 

AN ERROR IF "SKI" = 1 
BIT #SKI,RMERZ] 
BEQ 60$ 

MOV RMER21,$GDDAT 
BIC #SKI,$GDDAT 
MOV RMER¢I SBDDAT 
ADD #4, (SP) 

MOVB #213,a(SP) 


2 WAS "“IvC"' SET?? 
;YES-DONT REPORT ‘'vv"' = 0 
:EXPECTED STATUS 


sRECEIVED STATUS 
9 USER'S ERROR CALL 

WRITE ERROR NUMBER IN CALL 
“MOVE SP_TO RETURN FOR ERROR 


;REPORT ERROR VIA USER 
:MOVE SP BACK TO NO ERROR 


AN ERROR IF DRIVE IS OFF ge bree AND ‘'SKI"' = 0 
B #PIP,RMDSI 3] 


DRIVE OFF CYLINDER?? 


:NO! 
7 WAS “siggy SET?? 


;YES-DONT REPORT ‘'PIP"' = 1 
;EXPECTED STATUS 


RECEIVED STATUS 


MOVE SP TO USER'S ERROR CAL ur 
:WRITE ERROR NUMBER IN Heid 
:MOVE SP TO RETURN FOR ERR 
;REPORT ERROR VIA USER 
:MOVE SP TO NO ERROR RETURN 


CALL 


;PUT ERROR REG 2 ON STACK 
BIC #*C<SKI!DVC>, (SP) + 
60% ;BRANCH IF NO ERROR 


AN ERROR IF THERE IS A DEVICE FAULT 
BIT #0 MER21 


zone DEVICE FAULT?? 
EXPECTED STATUS 


sRECEIVED STATUS 
MOVE SP TO USER'S 
:WRITE NUMBER OF ERROR” IN CALL 
MOVE SP TO RETURN FOR ERROR 
;REPORT ERROR VIA USER 
:MOVE SP BACK TO NO ERROR 


i18, THERE A SEEK INCOMPLETE ERROR 
SEXPECTED STATUS 


sRECEIVED STATUS 
:MOVE SP TO USER'S ERROR CALL 
;WRITE ERROR NUMBER IN USER'S ERROR CALL 


SEQ 0237 


>a 


a kk a at oh 2 st =* 
WRIRININININININININ 3 SS SS SOD 


3 
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DRIVE STATUS CHECK SUBROUTINE SEQ 0238 
5 061672 162716 000002 SUB #2, (SP) :MOVE SP TO RETURN FOR ERROR 

6 061676 004736 JSR PC a(SP)+ ‘REPORT ERROR VIA USER 

7 061700 162716 000010 SUB #10, (SP) ‘MOVE SP BACK 70 NO ERROR 

8 061704 000240 NOP 

3 061706 60S: 

1 ;AUGMENT THE RETURN ADDRESS IF ANY ERROR WAS DETECTED 

2 061706 062716 000004 ADD #4, (SP) :MOVE SP TO USER'S ERROR CALL 
3.061712 105776 000000 TSTB. = a SP) WAS AN ERROR DETECTED?? 

4 061716 001403 BEQ 70$ SNO!! 

5 061720 062716 000004 ADD #4, (SP) :YES = MOVE SP TO USER'S ERROR RETURN 
6 061724 000402 BR 80$ 

7 061726 162716 000004 70$: SUB #4, (SP) :NO = MOVE SP TO NO ERROR RETURN 

8 061732 000240 80$: NOP 

3 061734 000207 RTS PC :RETURN TO USER 


CZRMMAO RMOS/3/2 FCTNL TST 1 
STOP AND SHUTDOWN SUBROUTINES 


1 
2 
3 


061736 


061736 


061750 


061752 


061764 
061766 


062000 


062022 
062022 
062026 


012746 
012746 
000002 


000240 


012746 
012746 
000002 


000207 


005737 
001015 
104401 
000410 


000137 
000137 


000300 
061764 


000042 
062002 


005412 
042136 


H 3 
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~SBTTL STOP AND SHUTDOWN SUBROUTINES 


STOP: 


;DROP PRIORITY TO ALLOW CONSOLE INTERRUPT 
MOV #PR3,-(SP) 


64$: 


;;PUT NEW PS ON STACK 


MOV #64%,-(SP) :;PUT NEW PC ON STACK 
RTI :;POP NEW PC AND PS 
NOP 
;RAISE PRIORITY TO INHIBIT CONSOLE INTERRUPT 

MOV #PR6,-(SP) 3;PUT NEW PS ON STACK 
MOV #65$,-(SP) 7:;PUT NEW PC ON STACK 
RT] :;POP NEW PC AND PS 
RTS PC : CONTINUE 

TST aa42 :ANY MONITOR PRESENT ? 
BNE 10% sBR IF YES 

TYPE 65% iz TYPE ASCIZ STRING 

R 64% 3GET OVER THE ASCIZ 
ASCIZ <CRLF><0O7>/TEST HALTED/<CRLF > 

JMP START 360 10 § 

JMP $EOP ;RETURN CONTROL TO MONITOR 


SEQ 0239 


CZRMMAO RMOS/3/2 FCIN 
SAVE AND RESTORE RO- 


1 


062032 


062066 


062070 


062124 


062126 
062130 
062134 


L 
RS R 


000002 


010146 
016601 
000261 


ROUT 


000022 


000022 


000022 


000022 


000006 


TST ; 
INES 


~SBTTL 


*CALL: 


ie 


r 
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SAVE AND RESTORE RO-R5 ROUTINES 


SERRE RARER AEE EEE EEE ARETE AERA REHHEHRER EERE H AREER ERS 


sta RO=-R5 


‘eTOP===(416) 


ie +2=--=(+18) 
pt +GnneR5 
2 +6---R4 
3@ sGeo-RS 
:#410-=-R2 
3#+12---R1 
3 #414---R0 
SSAVREG: 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
RT] 


® 
SRESREG: 


s*RESTORE RO-R5 
CALL: 


RESREG 


RO,-(SP) 
R1,-(SP) 


SP), += (SP) 


7 RESTORE PC 
;;RESTORE PS 
; RESTORE PC 
7 sRESTORE PS 


SEQ 0240 


AVREG 
; *UPON RETURN FROM SSAVREG THE STACK WILL LOOK LIKE: 


STACK 
STACK 
STACK 
STACK 
STACK 
STACK 
MAIN FLOW 
MAIN FLOW 


OF CALL 
OF CALL 
OF MAIN FLOW 
OF % FLOW 


;;POP STACK INTO 


::;POP STACK 


;;POP STACK 


R 
-SBTTL BINARY TO ASCII AND TYPE ROUTINE 


;peeekereeeeeeeeeeeeteeeeeteeeeee kee eee nee eee eee eee Re Ae 


[*THIS ROUTINE 1S USED TO CHANGE A 16-BIT BINARY NUMBER TO A 16-BIT 
;*BINARY-ASCI1] NUMBER AND TYPE IT. 


> *CALL: 
te 


$TYPBN: 


MOV 
TYPBN 
MOV 
MOV 
SEC 


NUMBER ,- (SP) 


3; SAVE_R1 ON 
3:GET TH 
77SET "'C’’ SO 


INTO R1 
INTO RO 


tre sae TO BE TYPED 


THE STACK 


— INPUT NUMBER 


CAN KEEP TRACK OF THE NUMBER OF BITS 


4 3 
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BINARY TO ASCII AND TYPE ROUTINE SEQ 0241 
062136 112737 000060 062200 18: MOVB = #0, $BIN 3SET CHARACTER TO AN ASCII "0". 
062144 006101 ROL RI ':GET THIS B 
062146 001406 BEQ 2$ + DONE? 
062150 105537 062200 ADCB  $BIN SINO==SET THE CHARACTER EQUAL TO THIS BiT 
062154 104401 062200 TYPE  ,$BIN 7:60 TYPE THIS BIT 
062160 000241 CLC S:CLEAR "'C'’ SO CAN KEEP TRACK OF BITS 
062162 000765 BR 1$ +:G0 DO THE NEXT B 
062164 012601 2$: MOV (SP)+,R1 ::POP THE STACK ato RI 
062166 016666 000002 000004 MOV 2(SP) ,4(SP) ‘:ADJUST THE STACK 
062174 012616 MOV (SP)+, (SP) 
062176 000002 : RETURN TO USER 
062200 000 000 $BIN: .BYTE 0,0 TORAGE FOR ASCII CHAR. AND TERMINATOR 
3 .SBTTL CONVERT BINARY TO DECIMAL ND TYPE ROUTINE 
SERRATE AAR ERATE EAAEARHKAKERKEKeeee eee 
“THIS ROUTINE 1S USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT 
:*SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
;*NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
:*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
i #REPLACED WITH SPACES. 
>*CALL: 
ie MOV NUM, =(SP) :;PUT THE BINARY NUMBER ON THE STACK 
se TYPDS 3:G0 TO THE ROUTINE 
062202 STYPDS: 
062202 010046 MOV RO,-(SP) ::PUSH RO ON STACK 
062204 010146 MOV R1.-(SP) + PUSH R1 ON STACK 
062206 010246 MOV R2.-(SP) +:PUSH R2 ON STACK 
062210 010346 MOV R3.-(SP) +:PUSH R3 ON STACK 
062212 010546 MOV R5.-(SP) +:PUSH R5 ON STACK 
062214 012746 020200 MOV #20200, (SP) iiSET BLANK SWITCH AND SIGN 
062220 016605 000020 MOV 20(SP)_R5 :GET THE INPUT NUMBER 
062224 100004 BPL 1$ ::BR IF INPUT IS POS. 
062226 005405 NEG RS [:MAKE THE BINARY NUMBER POS. 
062230 112766 000055 000001 MOVB = #*=, 1 SP) ::MAKE THE ASCII NUMBER NEG. 
062236 005000 1$: CLR RO ::Z2ERO THE CONSTANTS INDEX 
062240 012703 062416 MOV #SDBLK,R3 i: SETUP THE OUTPUT POINTER 
062244 112723 000040 MOVB = #"—, (RS) 4 SET THE FIRST CHARACTER TO A BLANK 
062250 005002 2$: CLR R2 ‘:CLEAR THE BCD NUMBER 
062252 016001 062406 MOV $DTBL(RO),R1 ::GET THE CON STAN T 
062256 160105 3g: SUB R1,R5 FORM THIS BCD DIGIT 
062260 002402 BLT 4$ [BR IF DON 
062262 005202 INC R2 ::INCREASE THE BCD DIGIT BY 1 
062264 000774 BR 3$ 
2266 060105 4$: ADD R1,R5 ::ADD BACK THE CONSTANT 
062270 005702 TST R2 [:CHECK IF BCD DIGIT= = 
062272 001002 BNE 5$ ::FALL THROUGH IF 0 . 
062274 105716 TSTB = (SP) TISTILL DOING LEADING 0°S? 
062276 100407 BM] 7$ [:BR IF YES 
062300 106316 5$: ASLB (SP?) : MSD? 
062302 103003 BCC 6$ ::BR IF NO 
2304 116663 000001 177777 MOVB 1(SP),-1(R3) =: : YES=-SET THE SIGN 
062312 052702 000060 6$: BIS #'0,R2 ::MAKE THE BCD DIGIT ASCII 
062316 052702 000040 7$: BIS #" RO ::MAKE IT A SPACE IF NOT ALREADY A DIGIT 
062322 110223 MOVB R2, (R3)4 [:PUT THIS CHARACTER IN THE OUTPUT BUFFER 
062324 005720 1ST (RO) + >: JUST INCREMENT ING 
062326 020027 000010 CMP RO, #10 >: CHECK THE TABLE INDEX 


CZRMMAO RMOS/3/2 FCTNL TST 1 
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


062332 


062416 


002746 


000012 


acaat 

RUS 
Sous 

oNNo 


oo-=—-—0 
PRU 
Conn 


177777 


062416 
000002 


000000 


000002 


000001 
000006 
000005 


3 
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177776 


000004 


062651 


062651 
062653 
062650 


8$: 


9$: 


SDTBL: 


SDBLK: 


.BLKW 


2$ 

8$ 

R5,R2 

6$ 

(SP)+ 

=1(SP),=2(R3) 
R3) 


L 
He py 


+360 DO THE NEXT DIGIT 
3:60 TO EXIT 
23GET THE LSD 

0 CHANGE TO_ASCII 
| WAS » es THE FIRST NON-ZERO? 


si YES=-SET 44 FOR TYPING 
THE TERM 


Be 
Se 
nn 
m 
_" 


+ sPOP STACK INTO RO 
:NOW TYPE THE NUMBER 
;;ADJUST THE STACK 


:;RETURN TO USER 


-SBTTL BINARY 10 GCTAL (ASCII) AND TYPE 


PPPS TCSP rT TT ret T Te eT TITS TTT TTT TTT TTT TT Tei t 
THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6=DIGIT 
:*OCTAL (ASCI1) NUMBER AND TYPE IT. 


:*$TYPOS==-ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


> *CALL: 


Be Be Oe Be Be Be Be we 
2s eee 


MOV 
TYPOS 
-BYTE 


NUM,=(SP) 


; ;NUMBER TO BE he ag 
:CALL_FOR TYPEOUT 
p3N=I oR 6 FOR NUMBER OF DIGITS TO TYPE 


7 :1=TYPE LEADING ZEROS 
:0=SUPPRESS LEADING ZEROS 


! #$TYPON-==-ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
:*$TYPOS OR $TYPOC 


s*CALL: 
te 
7* 


*CALL 


STYPOS: 


STYPOC: 
STYPON: 


MOV 
TYPON 


NUM,=(SP) 
NUM, =(SP) 
( 
OFILL 
0 


#6, » SOMODE +1 
#5, S0CNT 


R3, wSP) 
R4,-(SP) 


;:NUMBER TO BE TYPED 
3:CALL FOR TYPEOUT 


* 
:*STYPOC ---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 


NUMBER TO BE TYPED 
::CALL FOR TYPEOUT 


Saf ty THE MODE 

OAD ZERO FILL SWITCH 
‘NUMBER OF DIGITS TO TYPE 
ADJUST RETURN ADDRESS 


3:SET THE ZERO FILL +t he 
s:SET FOR S1X(6) DIGITS 
::SET THE ITERATION COUNT 
ii SAVE R3 

i: SAVE R4 


SEQ 0242 


CZRMMAO RMOS/3/2 FCTNL TST 1 


BINARY TO OCTAL 


(ASCI11) AND TYPE 


= 
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062500 010546 MOV RS,=(SP) sr SAVE RS 
062502 113704 062653 MOVB  $uMODE+1,R4 t:GET THE NUMBER OF DIGITS TO TYPE 
062506 boscoe NEG RG 
062510 062704 000006 ADD oR4 ;; SUBTRACT IT FOR MAX. ALLOWED 
062514 110437 062652 MOVB = R4_SOMODE [:SAVE IT FOR USE 
062520 113704 062651 MOVB $OFILL,R4 ::GET THE ZERO FILL SWITCH 
062524 016605 000012 MOV VecsP), RS :PICKUP THE INPUT NUMBER 
062530 005003 CLR R3 3;CLEAR THE OUTPUT WORD 
062532 006105 1$: ROL R5 ::ROTATE MSB INTO "'C' 
062534 000404 BR 33 +:60 DO MSB 
062536 006105 2$: ROL R5 S:FORM THIS DIGIT 
062540 006105 ROL R5 
062542 006105 ROI. RS 
062544 010503 MOV R5,R3 
062546 006103 38: ROL R3 ::GET LSB OF THIS pil 
062550 105337 062652 DECB  $OMODE Si TYPE THIS DIGIT 
2554 100016 BPL ? IF NO 
2556 042703 177770 BIC #177770,R3 :3GET RID OF JUNK 
062562 001002 BNE 4$ :: TEST FOR 0 
62564 005704 TST R4 St gt THIS 0? 
2566 001403 BEQ 5$ IF YES 
062570 005204 4$: INC RG = DON' T SUPPRESS ANYMORE 0'S 
062572 052703 000060 BIS #°0O,R3 S:MAKE THIS DIGIT ASCII 
062576 052703 000040 5$: BIS * 3 s3MAKE ASCII IF NOT ALREADY 
062602 110337 062646 MOVB = R3,, 8$ >:SAVE FOR TYPING 
062606 104401 062646 TYPE as 3360 TYPE THIS DIGIT 
062612 105337 062650 7$: DECB = $OCNT :COUNT BY 1 
062616 003347 BGT 2$ [:BR IF MORE TO DO 
062620 002402 BLT 6$ [:BR IF DONE 
062622 005204 INC RG ti INSURE LAST DIGIT ISN'T A BLANK 
062624 000744 BR 2$ 3:60 DO THE LAST DIGIT 
062626 012605 6$: MOV (SP)+,R5 ; RESTORE R5 
062630 012604 MOV (SP)+,R4 s RESTORE R4 
062632 012603 MOV (SP)+,R3 s RESTORE R3 
26 016666 000002 000004 MOV 2(SP),4(SP) +: SET THE STACK FOR RETURNING 
062642 012616 MOV (SP)+,(SP) 
062644 000002 RT] > RETURN 
264 000 8S: .BYTE 0 S:STORAGE FOR ASCII DIGIT 
062647 000 -BYTE 0 3: TERMINATOR FOR TYPE ROUTINE 
265 000 SOCNT: .BYTE 0 TIOCTAL DIGIT COUNTER 
062651 000 SOFILL: .BYTE 0 >:Z2ERO FILL SWITCH 
062652 000000 SOMODE: .WORD 0 [NUMBER OF DIGITS TO TYPE 
5 .SBTTL TYPE ROUTINE 


IIIT rit iii iii iti iii iiiiiiiiiiiiiiiiiiiiiit) 
‘ *ROUT INE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 af 

:*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 

;*NOTE1: SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 


+ *NOTE2: SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 

> *NOTES: SFILLC CONTAINS THE CHARACTER T0 FILL AFTER. 

oe 
s*CALL: 
:#1) USING A TRAP INSTRUCTION 

me TYPE »MESADR ;:MESADR IS FIRST ADDRESS OF AN ASCI2Z STRING 
te TYPE 


i* MESADR 


Hee eerie FCTNL 


TYPE R 


062654 


RSEN 


105737 
2 


013746 
105366 


MmMY~NOUW OM—WwLlh 
ANNON NNN 
——{—F 9 Rronww— 
SOoonn Lor yNo 


-—OoO0oO—-— SS..5- 
Nus—SooO ss wo— 


TST 1 


001173 


000002 
000001 


000100 


062724 
065742 


000040 


000002 
000011 
000200 


063204 


063066 
001172 


001170 
000001 


063066 
063204 


000040 
063066 
000007 


116066 


116062 
177600 
000023 


M 
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001242 
001243 


001243 


063204 


60$: 
3$: 


4$: 


5$: 
6$: 


7$: 


;HORIZONTAL TAB 


8$: 
$: 


STYPEC: 


STPFLG 
1$ 


3$ 

RO, (SP) 
a2(SP),RO 
#APTENV, SENV 


#APTSPOOL,SENVM ;; 
62$ 


RO,61$ 
PC, SATYS 


ee 


(RO)+,=(SP) 
4$ 

(SP)+ 
(SP)+,RO 
#2,(SP) 
#HT, (SP) 

8$ 

#CRLF, (SP) 
5$ 


(SP)+ 
SCHARCNT 
2$ 
PC ,STYPEC 
SFILLC,(SP)+ 
2$ 
SNULL,-(SP) 
1(SP) 
6$ 
PC ,STYPEC 
S$CHARCNT 
7$ 
PROCESSOR 

a" , (SP) 
PC, $TYPEC 
#7. S$CHARCNT 
9$ 

(SP)+ 
2$ 


astKs 


TKB,-(SP) 
#177600, (SP) 
#SXOFF, (SP) 


iI ince A TERMINAL? 
Ham IF NO TERMINAL 


seb 


32 5AVE RO 
i361 ADDRESS apt aod STRING 
ie RUNNING IN APT MODE 

::NO,GO CHECK FOR AT CONSOLE 


; LE 
SETUP MESSAGE re ante FOR APT 
++ SPOOL MESSAGE T0 A 
:MESSAGE ADDRESS 
;;APT CONSOLE SUPPRESSED 
7;YES,SKIP TYPE OUT 
:: PUSH CHARACTER TO BE haa ONTO STACK 
R IF IT ISN'T THE TERMINATOR 
:31F iim POP IT OFF THE STACK 


ORE R 
: ADJUST RETURN PC 

URN 
::BRANCH IF <HT> 
;;BRANCH IF NOT <CRLF> 


s;POP <CR><LF> + eo 
3; TYPE A CR AND 


7:CLEAR CHARACTER COUNT 


CHAR. 
:3GET # OF FILLER CHARS. NEEDED 
::AND THE NULL CHAR 
Sh a A NULL NEED TO BE TYPED? 
R IF we POP THE NULL OFF OF STACK 
i369 TYPE A NULL 
0 wed COUNT As A COUNT 


Hrs ee TAB WITH SPACE 
72 TYPE A SPACE 
5 Ae STOP. NOT AT 


::POP SPACE OFF STACK 
:2GET NEXT CHARACTER 


sz CHAR. IN N KYBD BUFFER? 
SIGET CHA 

: STRIP EXTRANEOUS BITS 
‘WAS CHAR XOFF 


SEQ 0244 


N 
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CIR 
TYPE ROUTINE SEQ 0245 
063110 001012 BNE 102$ ::BR IF NOT 
063112 101$: 
063112 105777 116042 TSTB = @STKS s;WAIT FOR CHAR 
063116 100375 BPL 101$ 
063120 117716 116036 MOVB  a$TKB, (SP) ::GET CHAR 
063124 042716 177600 BIC #177600, (SP) t:STRIP IT 
063130 122716 000021 CMPB ss # SON, (SP) *:WAS IT XON? 
063134 001366 BNE 101$ ::BR IF NOT 
063136 102$: 
063136 005726 TST (SP)+ szFIX STACK 
063140 10$: 
063140 105777 116020 TSTB asTPs ;;WAIT UNTIL PRINTER IS READY 
063144 100375 BPL 10$ 
063146 116677 000002 116012 MOVB 2(SP),a$TPB ::LOAD CHAR TO BE TYPED INTO DATA REG. 
063154 122766 000015 000002 CMPB #CR,2(SP) 3318S CHARACTER A CARRIAGE RETURN? 
063162 001003 BNE 1$ ::BRANCH IF NO 
063164 105037 063204 : CLRB $CHARCNT :3YES==CLEAR CHARACTER COUNT 
063170 000406 BR STYPEX T 
063172 122766 000012 000002 1$: CMPB LF ,2¢(SP) iI CHARACTER A LINE FEED? 
063200 001402 BEQ $TYPEX ::BRANCH IF YES 
063202 105227 INCB (PC)+ 3;COUNT THE CHARACTER 
063204 000000 $CHARCNT:.WORD 0 :; CHARACTER COUNT STORAGE 
063206 000207 STYPEX: RTS PC 
6 .SBTTL SCOPE HANDLER ROUTINE 
FRR ARERR REAR EATER RAE ARATE EA EERE ERE ee 
{STHIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
+ *AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
* *AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08> 
:*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
:*SW14= LOOP ON TEST 
:*Swil=1 TNHIBIT aaa 
*SWO9=1 LOOP ON ERR 
+ #SWOB=1 LOOP ON esi IN SWR<7:0> 
7 * CALL 
ie SCOPE >; SCOPE=10T 
063210 SSCOPE: 
063210 104410 CKSWR s:;TEST FOR CHANGE IN SOFT=SWR 
063212 004737 061736 JSR PC, STOP 
063216 032777 040000 115730 1$: BIT #B1714,aSWR ;:LOOP ON PRESENT TEST? 
063224 001131 BNE SOVER YES IF SW14=1 
;MMMAASTART OF CODE FOR THE XOR TESTERMMAMM 
063226 000416 $XTSTR: BR 6$ iil RUNNING ON THE "'XOR'' TESTER CHANGE 
: THIS INSTRUCTION TO A ‘'NOP'' (NOP=240) 
063230 013746 000004 MOV @#ERRVEC,-(SP) ::SAVE THE CONTENTS OF THE ERROR VECTOR 
3234 012737 063254 000004 MOV #5$, aFERRVEC :iSe1 FOR TIMEOU 
063242 005737 177060 TST a#1?7060 [TIME OUT ON OUR? 
063246 012637 000004 MOV (SP)+,a#ERRVEC ::RESTORE THE ERROR VECTOR 
063252 000500 BR $SVLAD 7:60 TO THE NEXT TEST 
063254 022626 5$: CMP (Spe, (SP)¢ 7; CLEAR THE STACK AFTER A TIME OuT 
063256 012637 000004 MOV (SP)+,Q#ERRVEC ;;RESTORE THE ERROR VECTOR 
063262 000440 BR 7$ LOOP ON THE PRESENT TEST 
063264 6%: ;@#0MHEND OF CODE FCR THE “OR iestenes 
063264 032777 000400 115662 BIT #81108, aSwR >; LOOP om SPEC. TEST? 
063272 001421 BEQ 23 ;;BR IF NO 


[or a nn ree 


4 
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_ SCOPE HANDLER ROUTINE SEQ 0246 
063274 005046 CLR = (SP) ;;CLEAR A_TEMP. LOCATION 
063276 117716 115652 MOVB ASWR, (SP) 3:PICKUP THE fe TEST NUMBER 
063302 001414 BEQ 8$ ;;BRANCH IF BAD TEST NUMBER IN SWR 
063304 022716 000071 CMP #71, (SP) +3 CHECK THE NUMBER IN THE SWR 
063310 002411 BLT 8$ ; ;BRANCH IF TEST NUMBER IS OUT OF RANGE 
063312 011637 001116 MOV (SP) ,STSTNM ;UPDATE THE TEST NUMBER 
063316 005316 DEC (SP) ; :BACKUP BY ONE 
063320 006316 ASL (SP) SCALE _THE TEST NUMBER AS AN INDEX 
063322 062716 063526 ADD #SSWOBTBL,(SP) :;FORM THE ADDRESS OF TEST POINTER 
063326 013637 001122 MOV @(SP)+,$LPADR ;;SET LOOP “gs TO DESIRED TEST 
063332 000466 BR SOVER ::G0 LOOP ON THE TEST 
063334 005726 8$: TST (SP)+ ;;CLEAN THE BAD TEST NUMBER OFF OF THE STACK 
63336 105737 001117 2$: TSTB SERFLG ;:HAS AN ERROR OCCURRED? 
063342 001421 BEQ $ ae N 
063344 123737 001131 001117 CMPB SERMAX ,SERFLG +3 MAX. ERRORS FOR THIS TEST OCCURRED? 
063352 101015 BHI $ F_N 
063354 032777 001000 115572 BIT #B1T09,aSwWR  sLOOP = ERROR? 
063362 001404 BEQ 4$ F 
063364 013737 001124 001122 7$: MOV SLPERR,SLPADR =; ; SET LOOP ADDRESS TO LAST SCOPE 
063372 000446 BR SOVER 
063374 105037 001117 4$: CLRB SERFLG ::ZERO THE ERROR FLAG 
063400 005037 001206 CLR STIMES ::CLEAR THE NUMBER OF ITERATIONS TO MAKE 
| 063404 000415 BR 1$ ;;ESCAPE TO THE NEXT TEST 
063406 032777 004000 115540 3$: BIT #BIT11,aSWR +2 INHIBIT ITERATIONS? 
063414 001011 BNE 1$ :BR IF YES 
063416 005737 001230 TST SPASS 33 1F FIRST PASS OF PROGRAM 
063422 001406 BEQ 1$ INHIBIT sree tae 
063424 005237 001120 INC SICNT :; INCREMENT ITERATION COUN 
| 063430 023737 001206 001120 CMP STIMES ,SICNT ;:CHECK THE NUMBER OF ITERATIONS MADE 
063436 002024 BGE SOVER :;BR IF MORE ITERATION REQUIRED 
063440 012737 000001 001120 1$: MOV #1,$1CNT :sREINITIALIZE THE ITERATION COUNTER 
063446 013737 063524 001206 MOV SMXCNT,STIMES ;;SET NUMBER OF ITERATIONS 10 DO 
063454 105237 001116 $SVLAD: INCB STSTNM + COUNT TEST NUMBERS 
| 063460 113737 001116 001226 MOVB STSTNM,STESTN SET TEST NUMBER IN APT MAILBOX 
063466 011637 001122 MOV (SP) ,SLPADR :;SAVE SCOPE LOOP ADDRESS 
063472 011637 001124 MOV (SP), SLPERR ;:SAVE ERROR LOOP ADDRESS 
063476 005037 001210 CLR SESCAPE ey LEAR THE ESCAPE FROM ERROR ADDRESS 
063502 112737 000001 001131 MOVB #1, SERMAX ONLY ALLOW ONE(1) ERROR ON NEXT TEST 
063510 013777 001116 115440 SOVER: MOV STSTNM,@DISPLAY ::DISPLAY TEST NUMBER 
063516 013716 001122 MOV SLPADR, (SP) ::FUDGE RETURN ADDRESS 
063522 000002 RT] FIXES PS 
063524 000012 SMXCNT: 10. 7;MAX. NUMBER OF ITERATIONS 
063526 $SWO8TBL: 
063526 010120 -WORD TST1+#2 :STARTING ADDRESS OF TEST 1 
063530 010304 -WORD TST2+2 z:STARTING ADDRESS OF TEST 2 
063532 010470 WORD TST3+#2 z:STARTING ADDRESS OF TEST 3 
63534 010672 WORD TST4+#2 7:STARTING ADDRESS OF TEST 4 
063536 011542 «WORD TST5+#2 ::STARTING ADDRESS OF TEST 5 
063540 012100 -WORD TST6+#2 z:STARTING ADDRESS OF TEST 6 
063542 012304 WORD TST7+#2 zzSTARTING ADDRESS OF TEST 7 
063544 012620 -WORD TST10+2 zzSTARTING ADDRESS OF TEST 10 
063546 013000 «WORD TST11+2 ::STARTING ADDRESS OF TEST 11 
063550 014052 -WORD TSTI2+2 ::STARTING ADDRESS OF TEST 12 
063552 014352 WORD TST13+#2 z:STARTING ADDRESS OF TEST 15 
063554 014570 «WORD TST1442 z:STARTING ADDRESS OF TEST 14 
063556 015076 «WORD TST15+#2 z;STARTING ADDRESS OF TEST 15 
063560 015406 -WORD TST16+#2 ;:STARTING ADDRESS OF TEST 16 


~ CZRMMAO RMO5/3/2 FCTNL TST 1 


SCOPE HANDLER ROUTINE 


063562 


063706 


015650 


ole lofolofolololololejololololo) 
MIMNIPMIPINRIPYNINYN ee 
Se NN SN SM ONION 
FOO FONOASOCOSNNAAS 


041614 
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-WORD TST71+#2 
-SBTTL ERROR HANDLER ROUTINE 


ECTS i iii iit iii i iii itis, 
*THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
;*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 


:*AND GO TO ERRTYP ON ERROR 
SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 


3 *THE 


*SW15=1 


HALT O 


7; STARTING 


3: STARTING 
STARTING 
77 STARTING 


7 STARTING 
3s: STARTING 
3; STARTING 
3: STARTING 
7: STARTING 
77 STARTING 
7: STARTING 
3: STARTING 
3; STARTING 


: STARTING A 


73 STARTING 
7; STARTING 
7; STARTING 
sz STARTING 
7: STARTING 
s STARTING 
77 STARTING 
7; STARTING 
3; STARTING 


7: STARTING 


N ERROR 
INHIBIT ERROR TYPEOUTS 
ERROR 


BELL ON 
LOOP ON ERROR 


N ;;ERROR=EMT AND N=ERROR ITEM NUMBER 


ADDRESS 


ADDRESS 


WWW nononononononnn— 
ONAUNEWR ONG NEURON 


41 


NNSA AAAAAOOOMM DAMA) 
MONA ANN —HONOUF WHO 


SEQ 0247 


D4 
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ERROR HANDLER ROUTINE SEQ 0248 


063710 SERROR: 
063710 104410 CKSW is TEST FOR CHANGE IN SOF T-SwR 
063712 105237 001117 7$: INCB = SERFLG :SET THE ERROR FLAG 
063716 001775 BEQ . ee ‘DON'T LET THE FLAG GO TO ZERO 
063720 013777 001116 115230 MOV STSTNM, DISPLAY ::DISPLAY TEST NUMBER AND ERROR FLAG 
063726 032777 002000 115220 BIT #B1T10.aSWR ;3BELL ON ERROR? 
063734 001402 BEQ 1$ NO = SKIP 
063736 104401 001212 TYPE $BELL 3 :RING BELL 
063742 005237 001126 1$: INC $ERTTL : COUNT THE NUMBER OF ERRORS 
063746 011637 001132 MOV (SP), SERRPC [:GET ADDRESS OF ERROR INSTRUCTION 
063752 162737 000002 001132 SUB #2, SERRPC 
063760 117737 115146 001130 MOVB aseRnPc. $ITEMB ;;STRIP AND SAVE THE ERROR ITEM CODE 
063766 032777 020000 115160 BIT #B11T13,aSWR ::SKIP TYPEOUT IF SET 
063774 001004 BNE 208 ::SKIP TYPEOUTS 
063776 004737 042346 JSR PC,ERRTYP +:G0 TO USER ERROR ROUTINE 
064002 104401 001217 TYPE SSCRLF 
064006 208: 
064006 122737 000001 001242 CMPB = WAPTENV,$ENV —s; ; RUNNING IN APT MODE 
064014 001007 BNE 2$ ‘:NO,SKIP APT ERROR REPORT 
064016 113737 001130 064030 MOVB = SITEMB,21$ ::SET ITEM NUMBER AS ERROR NUMBER 
064024 004737 065752 JSR PC, SATY4 >:REPORT FATAL ERROR TO APT 
064030 000 218: BYTE 0 
064031 000 “BYTE 0 
064032 000777 22$: BR 22% :;APT ERROR LOOP 
064034 005777. 115114 2$: TST aSWR + :HALT ON ERROR 
064040 100002 BPL 3$ *:SKIP IF CONTINUE 
064042 000000 HALT : HALT ON ERRO 
064044 104410 CKSWR TEST FOR CHANGE IN SOFT-SWR 
064046 032777 001000 115100 38: BIT #B1T09,aSWR >: LOOP ,0N ERROR SWITCH SET? 
064054 001402 BEQ 4$ NO 
064056 013716 001124 MOV SLPERR, (SP) SPUD GE RETURN FOR LOOPING 
064062 005737 001210 4$: TST SESCAPE :: CHECK FOR AN ESCAPE ADDRESS 
064066 001402 BEQ 5$ ::BR IF NONE 
064070 013716 001210 a MOV SESCAPE,(SP) | ::FUDGE RETURN ADDRESS FOR ESCAPE 
064074 022737 042326 000042 CMP #SENDAD,a#42 =; ;ACT-11 AUTO-ACCEPT? 
064102 001001 BNE 6$ ::BRANCH IF NO 
064104 000000 HALT IYES 
064106 6s: 
064106 000002 RT] > RETURN 
8 .SBTTL TTY INPUT ROUTINE 
é ,eeekeeeekekee eee eee eee eee eee eke eek ee teehee eee 
“ENABL LSB 
064110 000000 $TKCNT: .WORD 0 > NUMBER OF ITEMS IN QUEUE 
064112 000000 $TKQIN: .WORD 0 ;; INPUT POINTER 
064114 000000 $TKQOUT: .WORD 0 ‘OUTPUT POINTER 
064116 $TKOSRT: .BLKB 1 >: TTY KEYBOARD QUEUE 
064117 $TKQEND=. 


-EVEN 


:*TK INITIALIZE ROUTINE 
:*THIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE 
*SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT 


S*CALL: 
7f JSR PC,STKINT 


CZRM 
TTY 


MAQ RMO5/3/2 FCTNL TST 1 
INPUT ROUTINE 


064120 


064166 


064170 


064240 
064242 


064362 


lefelefeleleleia) 
SSN 


117746 


114766 
177600 
000003 


065304 
064120 


061766 
000007 


000176 


000001 
001212 


000023 
114664 
114656 
114652 
177600 
000021 
000100 


064110 
000140 


000175 
000040 


177530 
064112 
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000062 
114772 


001154 


064110 


114630 


;* RETURN 
$TKINT: CLR 


STKCNT 


N 
#STKQSRT,STKQIN ;:MO 


STKQIN, STKQOUT 


#STKSRV, A#TKVEC 


#200, aNTKVEC+2 
ast 
#100,a$TKS 

PC 


3*TK SERVICE ROUTINE 


*THIS ROUTINE WILL SERVICE THE 


;;CLEAR COUNT OF ITEMS IN QUEUE 


eo ae te . KEYBOARD VECTOR 
oe VEL 

:;CLEAR DONE FLAG 

; ENABLE TTY KEYBOARD INTERRUPT 
; RETURN TO CALLER 


TTY KEYBOARD INTERRUPT 


;*BY READING aa FROM THE INPUT BUFFER AND PUTTING 


:*1T IN THE Q 


E 
:*1F THE CHARACTER IS A “'CONTROL-C'' ( 


(*C) STKINT IS CALLED AND 


;*UPON RETURN EXIT IS MADE TO THE ‘'CONTROL=C'' RESTART ADDRESS (SHUT) 


$TKSRV: move 


2$: 


3$: CMP 


318: TSTB 


32$: . INC 


aSTKB,-(SP) 
#°C177, (SP) 
(SP) #8 

1$ 


,SCNTLC 

PC ,STKINT 
(SP)+ 

SHUT 

| las 
ASWREG, SWR 
6$ 


#1,$TKCNT 
3$ 


, $BELL 
(SP)+ 


5$ 

(SP) ,#23 
32$ 

asTKs 

(SP)+ 

asTKs 

31$ 
a$TKB,-(SP) 


#°C177, (SP) 
(SP)+, #2) 


1$ 
#100 ,a$TKS 


STKCNT 
(SP) ,#140 


4 
(SP) ,#175 
4$ 


#40, (SP) 
(SP)+ ,a$TKQIN 
$IKQIN 


;:PICKUP_ THE CHARACTER 
::STRIP THE JUNK 

::1S IT A CONTROL C? 
;:BRANCH IF NO 

::TYPE A CONTROL-C (“C) 
:;INIT THE KEYBOARD 


:21S 1T A CONTROL G? 
aa ay IF NO 
+t SOFT-SWR SELECTED? 


O TO SWR CHANGE 


3:18 THE QUEUE FULL? 

; BRANCH IF NO 

:;RING THE TTY BELL 

rite CHARACTER OFF “OF STACK 


IT 
::1S IT A — $? 
;;BRANCH IF _N : 
: DISABLE TTY “KEYBOARD INTERRUPTS 


33MAKE IT 7-BIT ASCII 

2:18 1T A CONTROL-Q? 

ee NCH IF NO 

4 i TTY KEYBOARD INTERRUPTS 
URN 


COUNT THIS CHARACTER 
::1S IT UPPER CASE? 
;;BRANCH IF YES 

::1S IT A SPECIAL CHAR? 
+ ;BRANCH IF YES 

::MAKE IT UPPER CASE 
:3AND PUT IT IN QUEUE 
;; UPDATE THE POINTER 


CZRM 
TTY 


MAO ‘tie TST 1 


INPUT ROUT] 
064366 


064404 


064406 
064414 


064440 


064442 


064464 
064472 


064524 


064526 
064532 


064536 


064572 


064576 
064602 
064604 


112737 
104401 


100375 


117746 
042716 


021627 


104401 


064112 
064116 


000176 
114536 
114532 


177600 
000007 


001150 


064120 
114474 
000001 
065316 
065323 
000176 


065334 
114434 
114430 
177600 
000003 
065304 
000006 
001151 
000100 
061766 
000025 
065311 
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064117 
064112 


001154 


000001 


001151 


000001 
114366 


CMP 
BNE 
MOV 
RT] 


cae eeyoneginage: 
#$TKQSRT,STKQIN 


3:G0 OFF THE th 
;BRANCH IF 
iERESET THE POINTER 


RRR EAARE ERE EEE EAE Kee eeeeKeeeeKeeeteee eee ee 


" #SOF TWARE SWITCH REGISTER CHANGE ROUTINE. 


:*ROUTINE 1S ENTERED 


FROM THE TRAP HANDLER, AND 


WIL 
;*SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP 
;*CALL ws witty be ~ A TTY sae eg MODE. 


$CKSWR: #SW 
NE $ 
TSTB ss STKS 
BPL 15$ 
MOVB  a$TKB,-(SP) 
BIC #°C177, (SP) 
CMP (SP) #7 
BNE 2$ 


se THE yay SWR SELECTED 
EXIT IF N 

i318 A CHAR OVAITING? 

:31F NOT, EXIT 


:AND EXIT 


REAR eee eee eee eee eee KKK KKkeKtketeKKkeeKeReeeeeene 


 #CONTROL 1S PASSED TO THIS POINT FROM EITHER THE TTY INTERRUPT SERVICE 


:*ROUTINE OR FROM THE SOFTWARE SWITCH REGISTER TRAP CALL, 


AS A RESULT OF A 


 sCONTROL- cage Pb is oy AND THE SOFTWARE SWITCH REGISTER BEING SELECTED. 


T 
$GTSwWR: 


19$: 
7$: 


8$: 


9$: 


(SP) + 
PC,STKINT 
astKs 
#1,SINTAG 
-$CNTLG 

. SMSWR 
SWREG,-(SP) 
» SMNEW 
-(SP) 


-(SP) 
asTKs 
7$ 


a$TKB,-(SP) 
#°C177, (SP) 
(SP), #3 

9$ 

/SCNTLC 
#6,SP 
SINTAG,#1 
8$ 

#100, a8TKS 
SHUT 


(SP), #25 
10$ 
eSCNTLU 


:;ARE WE RUNNING IN AUTO=-MODE? 

; BRANCH IF YES 

3:CLEAR CONTROL-G OFF STACK 
3:FLUSH THE TTY INPUT QUEUE 
;;DISABLE TTY KEYBOARD INTERRUPTS 
7;SET INTERRUPT MODE INDICATOR 


37ECHO THE CONTROL-G (“*G) 

3: TYPE CURRENT CONTENTS 

7;SAVE SWREG FOR TYPEOUT 

3:60 TYPE--OCTAL ASCII(ALL JIGITS) 
;;PROMPT FOR NEW SWR 

;;CLEAR COUNTER 

37; THE NEW SWR 

3; CHAR THERE? 

3:1F NOT TRY AGAIN 


3:PICK UP CHAR 
s3MAKE IT 7-BIT ASCII 


2:18 11 A CONTROL-C? 
: ;BRANCH IF NOT 

ee YES, ECHO CONTROL-C (“C) 

::CLEAN UP STACK 

;;REENABLE TTY KEYBOARD INTERRUPTS? 
;;BRANCH IF NO 

;;ALLOW TTY KEYBOARD INTERRUPTS 
::CONTROL-C RESTART 


3:18 1T A CONTROL-U? 
;;BRANCH IF NOT 
7:YES, ECHO CONTROL=U (*U) 


SEQ 0250 


CZRMMAO gt ts FCTNL 


TTY INPUT ROUT] 


064610 
064614 


064616 


064746 


064750 
064752 


065030 


000720 


011646 


TST 1 


000006 


000015 
000004 
000002 


001151 
000100 


063066 
000060 


000067 


000060 
000002 


000002 
177776 


001216 


000004 
000004 


064774 


064110 


064110 
177102 
064114 
064114 


064116 
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114314 


000001 
114272 


000002 


000004 
064117 
064114 


:; IGNORE PREVIOUS INPUT 
;;LET'S TRY IT AGAIN 


3318 IT A <CR>? 

+s BRANCH IF NO 

s YES, IS IT THE FIRST CHAR? 
3;BRANCH IF YES 

77 SAVE NEW SWR 

3;CLEAR UP STACK 

7zECHO <CR> - <LF> 

3; ;RE-ENABLE Us. KBD INTERRUPTS? 


NO 
;;RE-ENABLE TTY KBD INTERRUPTS 


: BRANCH IF YES 


+: BRANCH IF YES 
7s STRIP@ OFF ASCI1 

31S THIS THE FIRST CHAR 
+: BRANCH IF YES 
3zNO, SHIFT PRESENT 
33 CHAR OVER TO MAKE 
sé ROOM FOR NEW ONE. 
3:KEEP COUNT OF CHAR 
3;SET IN NEW CHAR 
3;7GET THE NEXT ONE 
si TYPE ?<CR><LF> 
3: SIMULATE CONTROL=-U 


PRR OT EATER TTR eeKeKKKKKee eee eRe eee 


aTHIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


20$: ADD #6,SP 
BR 19$ 
10$: CMP (SP) #15 
BNE 16$ 
TST 4 (SP) 
BEQ 11$ 
MOV 2(SP),aSwR 
11$ ADD #6,SP 
14$ TYPE $CRLF 
CMPB SintAG. # 
BNE 15$ 
MOV #100, a$TKS 
5$ RT] 
16$ JSR PC, $TYPEC 
CMP (SP) , #60 
BLT 18$ 
CMP (SP) ,#67 
BGT 18$ 
BIC #60, (SP)+ 
TST 2(SP) 
BEQ 
ASL (SP) 
ASL (SP) 
ASL (SP) 
17$: NC 2(SP) 
BIS =2(SP), (SP) 
BR 7$ 
18$: ‘TYPE , $QUES 
BR ti(‘é#kdOSS 
.DSABL LSB 
S*CALL: 
ie RDCHR 
* RETURN HERE 
*® 
SRDCHR: MOV (SP) ,-(SP) 
MOV 4(SP),2(SP) 
CLR 4 (SP) 
CLR -(SP) 
MOV #64$,-(SP) 
RT] 
64$: 
1$: TST STKCNT 
BEQ Is 
DEC $TK 
- MOVB astKa0UT, 4(SP) 
INC T 
CMP 
BNE 
MOV 


;:GET A CHARACTER FROM THE QUEUE 
:; CHARACTER IS ON THE STACK 
i:WITH PARITY BIT STRIPPED OFF 


: ;PUSH. DOWN THE PC AND 

:3GET READY FOR A CHARACTER 
PUT NEW PS ON STACK 

::PUT NEW PC ON STACK 

POP NEW PC AND PS 


;:WAIT ON A CHARACTER 
:DECREMENT THE COUNTER 


$31 ONE CHARACTER 
UPDATE THE POINTER 


$TKQ0U 
$1kQ0ut S#STKQEND’ “fabID. 11 0 OFF OF THE END? 
#STKQSRT ,$TKQOUT eee SET THE POINTER 


SEQ 0251 
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TTY INPUT ROUTI SEQ 0252 
065036 000002 2$: RT] ; RETURN 
—MARBRBAAARBARARARALASASZSLASASAR AAR AREAS ERR RR RRR RRR RR RRR RRR RRR RASS SD 
cSTHIS ROUTINE WILL INPUT A STRING FROM THE TTY 
> *CALL 
7e DLIN 3; INPUT A STRING FROM THE TTY 
.* RETURN HERE ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
:* 3; TERMINATOR WILL BE A BYTE OF ALL O'S 
065040 010346 $RDLIN: MOV R3,-(SP) sSAVE_R3 
065042 005046 CLR = (SP) ccheMe bi — KEY 
065044 012703 065274 1$: MOV ASTTYIN,RS :7GET ADDRESS 
065050 022703 065304 2s: CMP MSTTYINGS. RS ‘BUFFER FULL? 
065054 101456 BLOS 4$ TBR IF YES 
065056 104411 RDCHR 3:G0 READ ONE CHARACTER FROM THE TTY 
065060 112613 MOVB , (R3) 3;GET CHARACTER 
065062 122713 000177 10$: CMPB (R3) ::1S 17 A RUBOUT 
065066 001022 BNE ss. ::BR IF NO 
065070 005716 TST (SP) 3371S THIS THE FIRST RUBOUT? 
065072 pt TA BNE 6$ :;BR IF N 
065074 112737 000134 065272 MOVB #'\,9% 3: TYPE A BACK SLASH 
065102 104401 065272 TYPE 9% 
065106 012716 177777 MOV #-1, (SP) ;;SET THE RUBOUT KEY 
065112 005303 6$: DEC R3 ; BACKUP BY ONE 
065114 020327 065274 CMP R3,#$TTYIN ft hg EMPTY? 
065120 103434 BLO 4$ ::BR_IF YES 
065122 111337 065272 MOVB (R3) ,9% +3 SETUP TO TYPEOUT THE DELETED CHAR. 
065126 104401 065272 TYPE .9$ GO TYPE 
065132 000746 BR e$ ::G0 READ ANOTHER CHAR. 
065134 005716 5$: TST (SP) + er ig KEY SET? 
065136 001406 BEQ 7$ :BR_IF NO 
065140 112737 000134 065272 MOVB #°\ ,9$ :;TYPE A BACK SLASH 
065146 104401 065272 TYPE 9 
065152 005016 CLR (SP) ;;CLEAR THE RUBOUT KEY 
065154 122713 000025 7$: CMPB #25,(R3) ri ee A CTRL U? 
065160 001003 BNE 8$ ; F NO 
065162 104401 065311 TYPE , SCNTLU 7; TYPE A CONTROL "U'' 
065166 000726 BR 1$ 3:60 START OVER 
065170 122713 000022 8$: CMPB #22, (R35) 7331S CHARACTER A ‘'*R'"? 
065174 001011 BNE 3$ ;;BRANCH IF NO 
065176 105013 CLRB (R3) 7: CLEAR THe gr enacree 
065200 104401 001217 TYPE o$CRLF zi TYPE A ‘'CR' & LF’ 
065204 104401 065274 TYPE STTYIN 72 TYPE THE INPUT STRING 
065210 000717 BR $ : 360 yet ANOTHER CHACTER 
065212 104401 001216 4$: TYPE , SQUES YPE A 
065216 000712 BR 1$ SI CLEAR THE BUFFER AND LOOP 
065220 111337 065272 38: MOVB (R3) 9% 3;ECHO THE CHARACTER 
065224 104401 065272 TYPE P 
065230 122723 000015 CMPB #15, (R3)+ 3: CHECK FOR RETURN 
065234 001305 BNE 23 ;;LOOP IF NOT RETURN 
065236 105063 177777 CLRB -1(R3) CLEAR RETURN (THE 15) 
065242 104401 001220 TYPE  SLF 3; TYPE A LINE FEED 
065246 005726 TST (SP)+ [:CLEAN RUBOUT KEY FROM THE STACK 
065250 012603 MOV (SP)+,R3 :sRESTORE R R3 
065252 011646 MOV (SP) ,-(SP) 7;ADJUST THE STACK AND PUT ADDRESS OF THE 
065254 016666 000004 000002 MOV 4(SP),2¢SP) 33 FIRST ASCI1 CHARACTER ON IT 
065262 012766 065274 000004 MOV #STTYIN,4(SP) 
065270 000002 RT] 7; RETURN 
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TTY INPUT ROUTINE SEQ 0253 


065272 000 9$: BYTE 0 a Br FOR ASCII CHAR. TO TYPE 
065273 000 -—BYTE 0 3; TERMINATOR 
065274 STTYIN: .BLKB 8. ge oat Fe BYTES FOR TTY INPUT 
065304 136 103 015 S$CNTLC: .ASCIZ /*C/<15><12> 3 
065311 136 125 015 $CNTLU: .ASCIZ /*U/<15><12> :  EONTROT rr 
065316 136 107 015 $CNTLG: .ASCIZ /*G/<15><12> 3; CONTROL °'G"’ 
065323 015 012 123° SMSWR: .ASCIZ <15><12>/SWR = / 
065334 040 040 116 ee ny -ASCIZ / NEW = / 
. Vv 
9 -SBTTL READ AN OCTAL NUMBER FROM THE TTY 
. PUeRRRKKeee eee eee eee eee eee eee eeeeteeeheteeeeeeee 
*THIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 
“rv, IT TO BINARY. 
s*CALL: 
:* RDOCT 3;READ AN OCTAL NUMBER 
7* RETURN HERE 3;7LOW ORDER BITS ARE ON TOP OF THE STACK 
;* ;7HIGH ORDER BITS ARE IN $HIOCT 
065346 011646 $RDOCT: MOV (SP) ,-(SP) 3zPROVIDE SPACE FOR THE 
065350 016666 000004 000002 MOV 4(SP),2(SP Hoty NUMBER 
065356 010046 MOV RO,-(SP) PUSH RO ON STACK 
065360 010146 MOV R15-(SP) ° += PUSH R1 ON STACK 
065362 010246 MOV R2,-(SP) 37PUSH R2 ON STACK 
065364 104412 1$: RDLIN ;;READ AN ASCIZ LINE 
065366 012600 MOV (SP)+,RO 3;;GET ADDRESS OF 1ST CHARACTER 
065370 005001 CLR R1 3: CLEAR DATA WORD 
065372 005002 CLR R2 
065374 112046 2$: MOVB (RO)+,-(SP) s PICKUP THIS CHARACTER 
065376 001412 BEQ 3$ sz1F ZERO GET OUT 
065400 006301 ASL a] zie 
065402 006102 ROL R2 
065404 006301 ASL R1 p54 
065406 006102 ROL R2 
065410 006301 ASL R1 73*8 
065412 006102 ROL R2 
065414 042716 177770 BIC #*C7, (SP) ;zSTRIP THE ASCII JUNK 
065420 062601 ADD (SP)+,R1 : ADD IN THIS DIGIT 
065422 000764 BR 23 LOOP 
065424 005726 3$: TST (SP)+¢ >: CLEAN TERMINATOR FROM STACK 
065426 010166 000012 MOV R1,12(¢SP) 3: SAVE THE RESULT 
065432 010237 065446 MOV R2.$HIOCT 
065436 012602 MOV (SP)+,R2 3;POP STACK INTO R2 
065440 012601 MOV (SP)+,R1 3;POP STACK INTO RI 
065442 012600 MOV (SP)+,RO ; POP STACK INTO RO 
065444 000002 RT] RETURN 
065446 000000 $HIOCT: .WORD 0 >: HIGH ORDER BITS GO HERE 
10 -SBTTL TRAP DECODER 


ITI I TIT retire iii i iii ii titi iii iiiiiit) 
‘STHIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ‘‘TRAP’’ INSTRUCTION 
;*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 

: *OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
3*GO0 TO THAT ROUTINE. 


065450 016646 000002 STRAP: MOV 2(SP),-(SP) ASSUME THE STATUS OF 
065454 042716 000020 BIC #20, (SP) 3: THE CALLER--DO NOT ALLOW 


CZRMMAO RMO5/3/2 FCTNL 
TRAP DECODER 


065460 


065506 


065510 
065512 
065520 


065522 


Wana wan 


000200 


011646 
016666 
000002 


065510 


062126 
064476 


TST 1 
065466 


000002 


065522 


000004 


065716 
000340 


113342 
065722 
065630 
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000002 


000024 
000026 


000024 


#1$,-(SP) 


RO,-(SP) 
2(SP) ,RO 
=(RO) 


(RO) ,RO 

RO 
STRPAD(RO) ,RO 
RO 


3; T-BIT TRAPS 


;BACK 


SEQ 0254 


oi eve ad NEW STATUS 
:3GET ar be oe 


33GET RIGHT BYTE OF TRAP 
oeaan te FOR INDEXING 


:: INDEX TO TABLE 
3:60 TO ROUTINE 


33 THIS IS USE TO HANDLE THE ‘'GETPRI'' MACRO 


$TRAP2: MOV (SP) ,=(SP) ;:MOVE THE PC DOWN 
MOV 4(SP5,2(SP) ::MOVE THE PSW DOWN 
RTI ;;RESTORE THE PSW 

.SBTTL TRAP TABLE 

:*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 

:*BY THE "'TRAP’' INSTRUCTION, 

: ROUT INE 

$TRPAD: .WORD $TRAP2 
$TYPE ; ;CALL=TYPE TRAP+1(104401) TTY TYPEOUT ROUTINE 
STYPOC 3:CALL=TYPOC = TRAP#2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
$TYPOS ;CALL=TYPOS | TRAP+3(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
STYPON 3:CALL=TYPON TRAP#4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 
STYPDS :;CALL=TYPDS | TRAP+5(104405) TYPE DECIMAL NUMBER (WITH SIGN) 
$TYPBN :;CALL=TYPBN TRAP#6(104406) TYPE BINARY (ASCII) NUMBER 
SGTSWR ;;CALL=GTSWR = TRAP+7(104407) GET SOFT-SWR SETTING 
SCKSWR ;;CALL=CKSWR = TRAP#10(104410) TEST FOR CHANGE IN SOFT-SWR 
SRDCHR 3;CALL=RDCHR = TRAP411(104411) TTY TYPEIN CHARACTER ROUTINE 
SRDLIN ::CALL=RDLIN —TRAP#12(104412) TTY TYPEIN STRING ROUTINE 
$RDOCT ::CALL=RDOCT = TRAP#13(104413) READ AN OCTAL NUMBER FROM TT 
SSAVREG ;:CALL=SAVREG TRAP#14(104414) SAVE RO-R5 ROUTINE 
SRESREG {CALLERESREG TRAP*15( 104615) RESTORE RO-RS_ ROUTINE 

.SBTTL POWER DOWN AND UP ROUTINES 

'MARBAZABLAASLASZAALASAASLSALASLASLASASESAR ERE R EERE RRR ER RRR ERR EERE RRR SE 

“POWER DOWN ROUTINE 

$PWRDN: MOV WSILLUP,Q#PWRVEC ;;SET FOR FAST UP 
MOV #340, a#PWRVEC+2 ;:PRIO:7 
MOV RO,-(SP) PUSH RO ON STACK 
MOV =—s- R1,=( SP) PUSH R1 ON STACK 
MOV —s- R2, = (SP) PUSH R2 ON STACK 
MOV =—s-_ R3,,=( SP) ;;PUSH R3 ON STACK 
MOV =—s-R4, = (SP) PUSH R4 ON STACK 
MOV R5,~<SP) ;PUSH RS ON STACK 
MOV = @SWR, = (SP) PUSH @SWR ON STACK 
MOV SP, SSAVR6 SAVE SP 
MOV ASPURUP ,aMPURVEC’;;SET UP VECTOR 
HAL 
BR 72 7;HANG UP 
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POWER DOWN AND UP ROUTINES SEQ 0255 


RRR eeRReReeeeeeeeeeeeeeeee eee eeeKeeKeeeeekenKeeeeetereeeeeeeee 


‘BOWER . ns 


065630 012737 065716 000024 $PwRUP: MSILLUP ,QM#PWRVEC ;;SET FOR FAST DOWN 

065636 013706 065722 mov $SAVR6,SP ::GET SP 

065642 005037 065722 CLR SSAVRE ery LOOP FOR THE TTY 
065646 005237 065722 1$: INC SSAVR6 WAIT FOR THE INC 

065652 001375 BNE 1$ WORD 

065654 012677 113274 MOV (SP)+,aSWR pop STACK INTO aSWR 

065660 012605 MOV (SP)+,R5 ::POP STACK INTO R5 

065662 012604 MOV (SP)+.RG ::POP STACK INTO R4& 

065664 012603 MOV (SP)+,R3 ::POP STACK INTO R3 

65666 012602 MOV (SP)4+,R2 ::POP STACK INTO R2 

065670 012601 MOV (SP)+,R1 ::POP STACK INTO R1 

065672 012600 MOV (SP)+,RO - STACK INTO RO 

065674 012737 065556 000024 MOV #SPWRON, AMPWRVEC i gSET UP THE POWER DOWN VECTOR 
065702 012737 000340 000026 MOV #340 ,a#PWRVEC+2 ;:PRIO:7 

- 065710 104401 TYPE :REPORT THE POWER FAILURE 

065712 065724 SPWRMG: .WORD $POWER :;POWER FAIL MESSAGE POINTER 
065714 000002 RT] 
065716 000000 SILLUP: HALT :;THE POWER UP SEQUENCE WAS STARTED 
065720 000776 BR 72 +; BEFORE THE POWER DOWN WAS COMPLETE 
065722 000000 SSAVR6: 0 ::PUT THE SP HERE 

065724 015 012 120 $POWER: -ASCIZ <15><12>" "POWER" 

= Vv 
12 .SBTTL APT COMMUNICATIONS ROUTINE 
5 RARER EAE EEE TERETE TEE KKK eeKe eee Ke eeeeee 

065734 112737 000001 066200 $ATY1: MOVB #1,S$FFLG 3370 REPORT FATAL ERROR 
065742 112737 000001 066176 $ATY3: MOVB #1 .$MFLG ::T0 TYPE A MESSAGE 
065750 000403 BR SATYC 
065752 112737 000001 066200 SATY4: MOVB  #1,$FFLG 7:10 ONLY REPORT FATAL ERROR 
065760 SATYC: 
065760 010046 MOV RO,-(SP) ;;PUSH RO ON STACK 
065762 010146 MOV R1,-(SP) ::PUSH R1 ON STACK 
065764 105737 066176 STB = $MFLG :7SHOULD TYPE A MESSAGE? 
065770 001450 BEQ 5$ :IF NOT: BR 
065772 122737 000001 001242 CMPB ss WAP TEN, SENV ; sOPERAT ING UNDER APT? 
066000 001031 BNE $ NOT: BR 
066002 132737 000100 001243 BI1TB §§ #APTSPOOL,SENVM  : SHOULD SPOOL MESSAGES? 
066010 001425 BEQ 3$ F NOT: BR 
066012 017600 000004 MOV a4(SP),RO GET MESSAGE ADDR. 
066016 062766 000002 000004 ADD #2,4(SP) :;BUMP RETURN ADDR. 
066024 005737 001222 1$: TST SMSGTYPE :3SEE IF “DONE W/ LAST XMISSION? 
066030 001375 BNE 1$ SIF NOT: WAIT 
066032 010037 001236 MOV RO, SMSGAD ::PUT ADDR IN MAILBOX 

066036 105720 2s: TSTB = (RO) + ::FIND END OF MESSAGE 

066040 001376 BNE 2$ 
066042 163700 001236 SUB SMSGAD,RO ::SUB START OF MESSAGE 

066046 006200 ASR RO ::GET MESSAGE LNGTH IN WORDS 
066050 010037 001240 MOV RO, SMSGLGT ::PUT LENGTH IN MAILBOX 

966054 O12737 009004 001222 MOV #4 ,SASGTYPE ::TELL APT TO TAKE MSG. 
066064 017637 000004 066110 38: MOV a4(SP),4$ :3PUT MSG ADDR IN JSR LINKAGE 

072 062766 000002 000004 ADD #2,4(SP) - BUM P RETURN ADDRESS 

066100 013746 177776 MOV 177776, (SP) PUSH 1559%6 ON STACK 

0661046 004737 062654 JSR PC, $TYPE ST CALL TYPE MACRO’ 
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CZRMMAO RMO5/3/2 
APT COMMUNICATIONS ROUTINE SEQ 0256 
066110 000000 4$: «WORD 0 
066112 5$: 
066112 105737 066200 10$: TSTB SFFLG +s SHOULD — FATAL ERROR? 
066116 001416 BEQ 128 NOT: 
066120 005737 001242 TST SENV i RUNNING UNDER APT? 
066124 001413 BEQ 128 NOT R 
066126 005737 001222 118: TST SMSGTYPE 3 3F INI SHED a MESSAGE? 
066132 001378 BNE 11$ OT: WAIT 
066134 017637 000004 001224 MOV Q4(SP),$FATAL  ::GET ERROR a 
066142 062766 000002 000004 ADD #2,4(SP) ;BUMP RETURN ADDR. 
066150 005237 0v1222 INC SMSGTYPE 33 TELt abi TO TAKE ERROR 
066154 105037 066200 128: CLRB SFFLG 3;CLEAR FATAL FLAG 
066160 105037 066177 CLRB SLFLG :;CLEAR LOG FLAG 
066164 105037 066176 CLRB SMFLG 33;CLEAR MESSAGE FLAG 
066170 012601 MOV (SP)+,R1 ::POP STACK INTO R1 
066172 012600 MOV (SP)+,RO ::POP STACK INTO RO 
066174 000207 RTS PC ; ;RETURN 
066176 000 SMFLG: .BYTE 0 ::MESSG. FLAG 
066177 000 $SLFLG: .BYTE 0 ::LOG FLAG 
066200 000 SFFLG: « + 0 » FATAL FLAG 
etV 

000200 APTSIZE = 200 

000001 APTENV = 001 

000100 APTSPOOL= 100 

000040 APTCSUP = 040 


13 
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NSOLE MESSAGE SEQ 0257 

} .SBTTL CONSOLE MESSAGES 

3 066202 075 000 EQUALS: .ASCIZ a=a 

4 066204 101 114 114 ALL: «ASCIZ @ALLA<CRLFD 

5 066211 040 077 040 QUES: .ASCIZ 87a 

6 066215 054 040 000 COMMA: .ASCIZ a, @ 

7 066220 200 124 131 MSHELP: .ASCIZ <CRLF>@TYPE HELP TEXT (Y/N) ? @ 

8 066251 UBUSQST: 

9 066251 200 103 110 eASCIZ <CRLF>@CHANGE ADDRESSES (Y/N) ? @ 

10 066304 200 125 123 CNSLOO: .ASCIZ <CRLF>@USE SAME DEVICES (Y/N) 2? @ 

1 066337 200 102 125 CNSLO1: .ASCIZ <CRLF>@BUS ADDRESS 

12 066355 040 114 111 CNSLO2: .ASCIZ @ LIMITS = LO= iéb0d0, Hl= 17XXXX@<CRLF> 

13 066417 126 105 103 CNSLO3: .ASCIZ SVECTOR ADDRESS @ 

14 066437 040 114 111 CNSLO4: .ASCIZ @ LIMITS-= LO= 0, HI= 1000@<CRLF><LF> 

15 066473 102 122 040 CNSLOS: .ASCI2 aBR LEVEL @ 

16 066505 040 114 111 CNSLO6: .ASCIZ @ LIMITS = LO= 0, HI= 7@<CRLF><LF> 

17 066536 200 CNSLO7?: .ASCII <CRLF> 

18 066537 200 124 131 sASCII <CRLF>@TYPE ‘A’ TO TEST ALL DRIVES . OR TYPE DRIVE NUMBER(S) 
19 066624 200 101 116 -ASCIZ <CRLF>@AND TERMINATE INPUT WITH A CARRIAGE RETURN.@ 
20 066701 200 CNSLOB: .ASCII <cRLF> 
21 066702 040 077 111 CNSLO9: .ASCIZ @ 7ILLEGAL INPUTA<CRLF> 
22 066723 200 104 122 MSDRVS: .ASCIZ <CRLF>/DRIVE(S) 
23 066737 104 122 111 MSGDRV: .ASCIZ /DRIVE/ 
24 066745 040 111 123 LODEV: .ASCIZ / LS LOAD DEVICE/ 
25 066765 040 116 117 NOTPRS: .ASCIZ2 / NOT PRESENT 
26 067002 040 116 117 NOTAVL: .ASCIZ #/ SOT AVAILABLE/ 
27 067021 040 117 106 OFFLIN: .ASCIZ / OFF LINE/ 
28 067033 040 117 116 ONLINE: .ASCIZ / ON LINE / 
30 .EVEN 
31 


CZRMMAO RMOS/3/2 FCTNL TST 1 
FUNCTION CODE TABLE 


WANAAAAIAIPIPIPU PPP NNN Ss ws Ss 
AWE WN $9 DONO UESWN—OODNAUEWN—$OOODNOUSWRe 


4 
Boe 
57 067046 020000 
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SEQ 0258 
~SBTTL FUNCTION CODE TABLE 


;THE FUNCTION CODE TABLE IS USED TO DEFINE STATUS CONDITIONS FOR 
sEACH FUNCTION CODE. BIT USAGE IS AS FOLLOWS: 


ATA = BIT 15_1S SET_IN THE ENTRY FOR A GIVEN FUNCTION CODE 


:1F ATA SHOULD BE SET WHEN THE FUNCTION CODE IS At bet OTHERWISE, 
:B1T 15 1S re INDICATING THAT ATA SHOULD NOT NORMALLY BE SET. 
sNOTE THAT ATA MAY BE SET WHEN A COMMAND IS EXECUTED EVEN THOUGH 
:1T 1S NOT EXPECTED AS A RESULT OF THE COMMAND. 


WCE = BIT 14 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 
IF WRITE CHECK ERRORS ARE ENABLED AS A FUNCTION OF THE COMMAND. 


OP] - BIT 13 1S SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 
IF OPI ERRORS ARE ENABLED DURING THE EXECUTION OF THAT COMMAND. 


IvC = BIT 12 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 
IF IvC ERRORS ARE ENABLED DURING THE EXECUTION OF THAT COMMAND. 


WLE - BIT 11 1S SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 
‘IF WRITE ERRORS ARE ENABLED DURING THE EXECUTION OF ma COMMAND . 
;THE WRITE ERRORS WHICH ARE ENABLED ARE "WLE'', “'WCF'', ‘DPE’, “‘UPE* 


JAE - BIT 10 1S SET IN THE ENTRY FOR A GIVEN vocriheone CODE 
‘IF INVALID ADDRESS ERROR IS ENABLED FOR THAT COMMAND 


AOE - BIT 09 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 
IF READ AND WRITE ERRORS ARE ENABLED DURING THE EXECUTION OF THE 
SCOWMAND,, THE gg A ge BY THIS BiT ARE ‘'TRE'’, ‘'DLT'’, ‘'NEM’’ 


: BIT 08 IS NOT USED. 


HCE = BIT 07 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 
IF HEADER ERRORS ARE ENABLED nee THE EXECUTION OF — COMMAND. 
;HEADER ERRORS INCLUDE "HCRC'', ‘HCE’, "FER AND ''BSE'™ 


ECH = BIT 06 IS SET IN THE ENTRY FOR A GlV 
‘IF DATA FIELD ERRORS ARE ENABLED DURING THE EXECU 
COMMAND. THESE ERRORS INCLUDE 'MDPE"', '‘DCK'', AND 


EN FUNCTION CODE 
TION oF OF THAT 


: BIT 05 1S NOT USED. 

: BIT 04 IS NOT USED. 

: BIT 03 1S NOT USED. 

: BIT O02 1S NOT USED. 

: Bit 01 IS NOT USED. 

: ILF = BIT 00 IS SET IF THE FUNCTION CODE IS ILLEGAL. 
FNCDIB: FUNCTION CODE TABLE 
-WORD OP] > NCP 


CZRMMAO wnat Ste FCTNL TST 1 


FUNCTION CODE 


58 067050 
59 067052 


88 067144 
89 


TABLE 
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OPI!ATA!ILF! IVC 
ATA!OPI!IVC!IAE 
ATA!OPI! IVC 

OP] 


OPI! IvCc 
OPI!ATA! IVC 
OPI!ATA! IVC 
OP] 


OP] 

OPI!ATA!ILF!IVC 
OPI!ATA!ILF!IVC 
ATA!OPI!IVC!IAE 
CPI!ATA!ILF! IVC 
OPI!ATA!ILF! IVC 
OPI!ATA!ILF! IVC 
OPI!ATA!ILF! IVC 
OPI!ATA!ILF!IVC 
OPI!ATA!ILF! IVC 
OPI!ATA!LILF!IVC 

WCE! OPI! IVC! IAE! AOE!HCE!ECH 
WCE!OPI!IVC!1AE!AOE!HCE!ECH 
OPI!ATA!ILF! IVC 
OPI!ATA!ILF! IVC 

OPI! 1VC!WLE! 1AE! AOE! HCE 
OPI! IVC!WLE! LAE! AOE 
OPI!ATA!ILF! IVC 
OPI!ATA!ILF! IVC 

OPI! IVC! IAE!AOE!HCE!ECH 
OPI! IVC! IAE! AOE! HCE!ECH 
OPI!ATA!ILF!IVC 
OPI!ATA!ILF! IVC 


TLL Eem. FUNCTION (2) 


:RECAL IBRATE 
:DRIVE CLEAR 
;RELEASE 

7 OFFSET 

RETURN TO CENTERLINE 

sREAD IN PRESET 

;PACK ager date: 
ILLEGAL FUNCTION (2 
ILLEGAL FUNCTION (2 

3 
3 


ILLEGAL FUNCTION ( 
ILLEGAL FUNCTION ( 


; ILLEGAL 
WRITE CHECK D 
sWRITE CHECK HEADER AND DATA 
ZILLEGAL FUNCTION (54) 
ILLEGAL FUNCTION (56) 
WRITE DATA 

;WRITE HEADER AND DATA 
ILLEGAL FUNCTION (64) 

; ILLEGAL FUNCTION (66) 

READ DATA 

READ HEADER AND DATA 
ILLEGAL FUNCTION (74) 
ILLEGAL FUNCTION (76) 


SEQ 0259 


CZRMMAO RMOS/3/2 FCTNL TST 1 


ATTENTION (ATA) TABLE 
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-SBTTL ATTENTION (ATA) TABLE 


ATNTBL: .BYTE 
YTE 


1. 


—AwWw—COofrn 
MeMree « « 


SEQ 0260 


CZRMMAO RMO5/3/2 FCTNL TST 1 


DATA PATTERN TABLE 


WAN ARR N NNN NI NND 2 2 SS OS SS 
WN $9 DONA U EWN O OODNAUE WN OOD ONOUS WR 
Oo 


34 


067156 


040000 
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-SBTTL DATA PATTERN TABLE 
RGDTPT: 


MIXED: 


ONES: 


ZEROS: 


NMND MMM F WM WA OW WEN SI OWS SIO 
. - 


WWW OOF NS VPS S| OWS WL MN OO ww 
. . . . . . . 


MW MN OO 0 — AMINA — OOO UTI Ute et 
5 8 8 NWR OODWNMUINWOO FMS UtSe ee 


5 ANNU COO WWE Om UT NIL tt 
se © © LNNUTUINIOWNe 8 8 le 
eeee ee 


SEQ 0261 
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DATA PATTERN TABLE SEQ 0262 
58 067330 020000 = -WORD 8192. 
59 067332 010000 -WORD 4096. 
60 067334 004000 -WORD 2048. 
61 067336 002000 -WORD 1024. 
62 067340 001000 WORD 512. 
63 067342 000400 WORD 256. 
64 067344 000200 -WORD 128. 
65 067346 000100 «WORD 64. 

66 067350 000040 WORD 32. 

67 067352 000020 -WORD 16. 

68 067354 000010 -WORD 8. 

69 067356 000004 -WORD 4. 

70 067360 000002 -WORD 2. 

71 067362 000001 -WORD 1. 

72 067364 000000 -WORD 0. 

73 067366 177777 «WORD 65535. 
74 067370 177776 WORD 65534. 
75 067372 177774 «WORD 65532. 
76 067374 177770 -WORD 65528. 
77 067376 177760 -WORD 65520. 
78 067400 177740 WORD 65504. 
79 067402 177700 -WORD 65472. 
80 067404 177600 WORD 65408 
81 067406 177400 WORD 65280 
82 067410 177000 -WORD 65024 
83 067412 176000 WORD 64512 
84 067414 174000 -WORD 63488 
85 067416 170000 WORD 61440 
86 067420 160000 WORD 57344 
87 067422 140000 WORD 49152 
88 067424 100000 WORD 32768. 
89 067426 000000 WORD Q. 

90 067430 000000 WORD Q. 

91 067432 100000 WORD 32768. 
92 067434 140000 WORD 49152. 
93 067436 160000 WORD 57344. 
94 067440 170000 WORD 61440. 
95 067442 174000 WORD 653488. 
96 067444 176000 WORD 64512. 
97 067446 177000 WORD 65024. 
98 067450 177400 WORD 65280. 
99 067452 177600 WORD 65408. 
100 067454 177700 WORD 65472. 
10° 067456 177740 WORD 65504. 
102 067460 177760 WORD 65520. 
103 067462 177770 WORD 65528. 
104 067464 177774 -WORD 65532. 
105 067466 177776 -WORD 65534. 
106 067470 177777 «WORD 65535. 
10? 067472 125252 EARLY: .WORD 43690. 
108 067474 152525 -WORD 43690./2 
109 067476 125252 WORD 43690. 
110 067500 177777 -WORD 65535. 
111 067502 177776 -WORD 65534. 
112 067504 177775 -WORD 65533. 
113 067506 177773 -WORD 65531. 
114 067510 177767 WORD 65527. 


SEQ 0263 
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CZRMMAO RMOS/3/2 FCTNL TST 1 
DATA PATTERN TABLE 


ENRGDT: 


eR ERE ERE ERR RRR RR. I OR. 
ee el ee ol a 


ER OMRON OR RRA RRR RR RR RR 
eer KK Kr KKK KOO kK eK KKK KC KK COCO rr Ke 


NTOONT COON T COON TOON TOONS OON.ToOOoONny: 
VOICI MMM TS TT TOWN OO OOR-AARPR OOO 
MDA ANAAAAAAAAAAAAAIAAAAAAAAAAWAI OOO 
ad Bed Ripe Riedl Bed ed Bed Reed peed Redd Ded Dae ded Del Bd Ded ded ed ed ed kd ee ee 
COOH OOOOOOOOOOOOOOOOOOOOOOOOOO 
ioleleleleleleleleleleleleleleleleleleleoleolololololololololo) 
NOPR-DHO- UM TMOR- OHO UM TNO. DOO WM wv 
NINN NN CI NIM MAO MOM PPO) oF or oF or 
LLL LLL LLM OO OC OC Cr Ce 


145 


CZRMMAO RMOS/3/2 FCTNL 
ERROR MESSAGE TABLE 


SN 


WN —O OONS UE WN 0 OOO UF WN | O OONAU EWN — OODONGAUE WN — 
Soooooooo°o[e°oo Ss 
rMmr _ 

Ww uw ~ 
o 
a 
So 
o 
a 
o 
~N 


BPH FANNIN WIR NNN NNR OO a oe ee ee es 


44 070260 076003 


49 07 101175 
50 070364 076202 
51 070402 076606 
52 070422 100355 
53 070436 000000 
54 070440 100562 
55 070460 076107 
56 670500 101134 
57 070512 101134 


CoO NNO NWN OO 


CoO — BDOSCSCSO—DOOCOCCOCOCOSCOS | SOOO OCOCCOOCOCOoCooooooooooe 
™~ 


G 5 
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-SBTTL ERROR MESSAGE TABLE 
: EMS1,0 
000000 EMT2: .WORD EMS2,EMS3,0 


000000 EMTS: .WORD €MS5.EMS10,0 
000000 EMT6:  .WORD €EMS167,EMS64,0 
000000 EMT7: .WORD €MS110.EMS170,0 


EMT10: .WORD €EMS7 

EMT11: .WORD €MS10,0 
000000 EMT12: .WORD €MS11.EMS12,0 
074672 EMT13: .WORD €MS13.EMS14.E 
000000 EMT14: .WORD €&MS17.EMS64.0 
000000 EMT15: .WORD €&MS11.EMS21.0 
075201 EMT16: .WORD €&MS11.EMS22.EMS2 
075212 EMT17: .WORD €EMS11.EMS23.EMS3 
075212 EMT20: .WORD €MS11.EMS24.EMS3 
075201 EMT21: .WORD €&MS11.EMS25.EMS2 
075201 EMT22: .WORD €&MS11.EMS26.EMS2 
075212 EMT23: .WORD €EMS11.EMS31.EMS3 
075212 EMT24: .WORD €EMS11.EMS32.EMS3 
075212 EMT25: .WORD €&MS11.EMS33.EMS 
075212 EMT26: .WORD €&MS11.EMS34.EMS3 
075212 EMT27: .WORD €EMS11.EMS35.EMS3 
075212 EMT30: .WORD €MS11.EMS36.EMS3 
075212 EMT31: .WORD €&MS11.EMS37.EMS3 
075212 EMT32: .WORD €&MS11.EMS40.EMS3 
075212 EMT33: .WORD €MS11.EMS41.EMS3 
075212 EMT34: .WORD €MS11.EMS42.EMS3 
075212 EMT35: .WORD €EMS11.EMS43.EMS3 
075212 EMT36: .WORD €&MS11.EMS44.EMS3 
075212 EMT37: .WORD €MS11.EMS45.EMS 
000000 EMT40: .WORD EMS 


000000 EMT47: .WORD EMS65,EMS6 


076547 EMTS3: .WORD €&MS47.EMS53,EMS67,EMS 
076547 EMTS4: .WORD €EMS50,.EMS53.EMS67,0 
076117 EMT55: .WORD €MS142,EMS143,EMS53,E 
076547 EMT56: .WORD &MS51,EMS72,EMS6 
076547 EMTS7: .WORD €MS167,EMS75, 
077361 EMT60: .WORD €&MS56,EMS67,EMS115,EM 
076547 EMT61: .WORD €&MS71.EMS56,.EMS67 
077361 EMT62: .WORD €MS146,EMS67,EMS11 
EMT63: WORD 
076574 EMT64: .WORD €MS150,€MS152,EMS70,EM 
102003 EMT65: .WORD €MS52,EMS205,EMS214.EM 
076621 EMT66: .WORD €MS165,EmS108, ; 
076621 EMT67: .WORD €MS165.EMS103,EMS72.EM 


COOCOCCCOCCOCOCOOCOCOCOOoOOCOOooOoO 


“fii 66.EMS20.0 

076673 EMTG1: .WORD €EMS75.EMS141,EMS76 
076621 EMT42: .WORD €EMS144,EMS145,EMS7 
076673 EMT43: .WORD EMS47,EMS53,EMS76,0 
076673 EMT44: .WORD €EMS77.EMS53.EMS76.0 
076673 EMT45: .WORD €MS100,€MS58,EMS76 
076673 EMT46: .WORD €MS101,EMS53.EMS76 


‘ 0 
sre as era e A 


56,£MS73,EMS67,0 
11$,€MS51,—MS72,0 


SEQ 0264 


SEQ 0265 
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1074022 103434 103530 103546 EDT1: .WORD €D1,STSD1,STSD2,STSD4 

2 074032 103530 103546 103600 EDT2:  .WORD STSD1,STS02,STSD4 

4 074040 103442 EDT110: .WORD €D110 

i 074042 103446 EDT111: .WORD €D111 

7 074044 103454 EDT114: .WORD €D114 

: 074046 103464 103530 103546 EDT223: .WORD £D223,STSD1,STSD2,STSD4 
10 074056 103474 103530 103546 EDT336: .WORD £D336,STSD1,STSD2,STSD4 
11 074066 103506 103530 103546 EDT337: .WwORD £D337,STSD1,STSD2,STSD4 
‘¢ 074076 103506 103530 103546 EDT344: .WORD £D337,STSD1,STSD2,STSD4,0 
‘¢ 074110 103520 EDT353: .WwORD €£D353 
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} .SBTTL ERROR MESSAGE STRINGS 
3 074200 127 122 117. EMS1:  .ASCIZ @WRONG UNIT SELECTED (RMCS2, BITS 0-2) a 
4 074247 104 105 126 EMS2: .ASCIZ @DEVICE WENT 
5 074264 125 116 101 EMS3: .ASCIZ @UNAVAILABLE "'DVA’’ (RMCS1, BIT 11) @ 
6 074327 116 117 116 EMS4:  .ASCIZ @NONEXISTENT "NED" CRMCS2, BIT 12) a 
7 074372 103 117 115 EMSS: .ASCIZ @COMMAND NOT COMPLETED, 
8 074422 103 117 116 EMS6:  .ASCIZ @CONTROLLER NOT READY tRACSI, BIT 7) 
9 074467 104 122 111 EMS7:  .ASCIZ @DRIVE NOT READY "DRY'' (RMDS. BIT 7) 3 
10 074534 107 117 040 EMS10: .ASCIZ aco NOT RESET ''GO'’ (RMCS1, BIT 0) a 
11 074576 111 116 126 €MS11: .ASCIZ @INVALID @ 
12 074607 106 125 116 EMS12: .ASCIZ SFUNCT ION. CODE (RMCS1, BITS 1-5) a 
13 074650 115 101 123 —MS13: .ASCIZ @MASSBUS @ 
14 074661 103 117 116 EMS14: <ASCIZ @CONTROL @ 
15 074672 102 125 123 EMS15: .ASCIZ @BUS PARITY ERROR @ 
16 074714 042 115 103 EMS16: .ASCIZ a@''MCPE'’ (RMCS1, BIT 13) @ 
17 074744 124 122 101 €MS17: .ASCI2Z QTRANSFER ERROR (RMCS1, BIT 14) @ 
18 075004 123 110 117. EMS20: <ASCIZ @SHOULD N ET @ 
19 075027 127 117 122 EMS21: .ASCIZ @WORD “COUNT (RMWO) @ 
20 075052 102 125 123 EMS22: .ASCIZ @BUS (RMBA) 2 
21 075066 042 114 102 EMS23: .ASCIZ a@''LBT'’ (RMDS, BIT 10) a 
22 075114 042 101 117. EMS24: .ASCIZ @'AOE'’ (RMER1, BIT 09) @ 
23 075143 104 qi 123 EMS25: .ASCIZ @DISK (RMDA) @ 
24 075160 103 131 114 EMS26: .ASCIZ @CYLINDER (RMDC) @ 
25 075201 101-104 104 EMS27: .ASCIZ @ADDRESS @ 
26 075212 123’ 124 101 EMS30: <ASCIZ @STATUS @ 
27 075222 042 127 114 EMS31: .ASCIZ @'WLE' (RMER1, BIT 11) @ 
28 075251 042 125 120 EMS32: .ASCIZ a''UPE’ (RMCS2. BIT 13) a 
29 075300 042 127 103 EMS33: .ASCIZ a'‘WCF'’ (RMER1, BIT 5) @ 
30 075326 127 122 111 EMS34: .ASCIZ @WRITE CHECK ERROR-''WCE’ (RMCS2, BIT 14) a 
31 075377 042 115 104 EMS35: .ASCIZ a''MDPE' (RMCS2, BIT 8) @ 
32 075426 042 104 103 EMS36: .ASCIZ a@''DCK’ (RMER1, BIT 15) @ 
33 075455 042 105 103 €MS37: .ASCIZ @'ECH'' (RMER1. BIT 6) @ 
34 075503 042 104 114 EMS40: .ASCIZ a''DLT" (RMCS2, BIT 15) a 
35 075532 042 115 130 EMS41: .ASCIZ @''MXF'' (RMCS2, BIT 9) a 
36 075560 042 104 124 EMS42: <ASCIZ a''DTE’ (RMER1, BIT 12) @ 
37 075607 042 110 103 EMS43: .ASCIZ a"'HCRC'’ (RMERI, BIT 8) @ 
38 075636 110 105 101 EMS44: .ASCIZ @HEADER COMPARE ERROR ‘'HCE'’ (RMERI, BIT 7) a 
39 075711 106 117 122 EMS45: .ASCIZ @FORMAT ERROR FER’ (RMERI, BIT 4) @ 
40 075754 042 111 101 €MS46: .ASCIZ a'lAE'’ (RMER1, BIT 10) a 
41 076003 042 117 120 EMS47: .ASCIZ a@‘'OPI'' (RMERI, BIT 13) @ 
42 076032 042 123 113 EMSSO: .ASCIZ a*'SKI'' (RMER2, BIT 14) @ 
43 076061 042 120 111 €MS51: .ASCIZ a''PIP'' (RMDS, BIT 13) @ 
4%, 076107 124 110 105 €MS52: .ASCIZ @THE RM @ 
45 076117 104 105 124 EMS53: .ASCIZ @DETECTED @ 
46 076131 101 124 040 EMS54: .ASCIZ @AT AN UNEXPECTED @ 
47 076153 111 116 103 EMS55: .ASCIZ @INCORRECT DATA DURING 2 
48 076202 111 116 126 EMS56: <:ASCIZ @INVALID COMMAND ERROR “IVC'' (RMER2, BIT 12) @ 
49 076257 104 125 122 €MS57: .ASCIZ @DURING DATA TRANSFER @ 
50 076305 104 101 124 EMS60: .ASCIZ @DATA READ @ 
51 076320 104 117 105 €MS61: .ASCIZ @DOES NOT COMPARE WITH @ 
52 076347 104 101 124 EMS62: .ASCIZ @DATA WRITTEN 
53 076365 042 120 101 EMS63: <ASCIZ a@''PAR' (RMER1, BIT 3) @ 
54 076413 111 123 040 EMS64: .ASCIZ @1S INCORRECT @ 
55 076631 103 117 115 EMS65: .ASCIZ @COMPOSITE ERROR ERR’ (RMDS, BIT 14) @ 
56 076477 104 101 124 EMS66 eASCIZ @DATA PARITY ERROR ‘'DPE (RMER2, BIT 3) a 
57 076547 104 125 122 €MS67: .ASCIZ @DURING SEEK COMMAND a 
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58 076574 111 123 040 EMS70: .ASCIZ @IS$ RESET a 

59 076606 =6105 «=: 122,-Ss« 122 «ss EMS71: CASCIZ @ERRONEOUS a 

60 076621 111 123 040 EMS72: ‘ASCIZ @IS SET a 

61076631 104 111 104 EMS73: ‘<ASCIZ @D1D NOT SET @ 

62 076646 104 111 104 EMS74: <ASCIZ @DID_NOT RESET @ 

63076665 891142117, s«*123-—s«EMS75: <ASCIZ LOST @ 
64 076675 = 104 = 125. 122s EMS76: <ASCIZ @DURING PACK ACK COMMAND a 

65 076724 0462 122 115 EMS77: <ASCIZ @''RMR' (RMER1, BIT 2) @ 

66 076752 = 042117 = 114 EMS100: CASCIZ @"ILR'' (RMERI, BIT 1) a 

67 077000 = =042 21112114 EMSI01: <ASCIZ @ILF'' (RMER1, BIT 0) a 

68 077026 =6104 += 125. «122s EMS102: :ASCIZ @DURING SEARCH COMMAND a 

9 07705 105 = 122,122 EMS103: -ASCIZ @ERROR @ 

70 077064 042 114 102 EMS104: -ASCIZ @™LBC’’ (RMER2, BIT 10) a 

71 077113 = 042-—Ss«114~—Ss«128-—«EMS105: “ASCIZ aLSc” Camere, BIT 11) 3 

72 077162 = 110 Ss 105. Ss 101s EMS106: CASCIZ @HEADER ERROR 

73 077161 102, -«S«125.~=S «123. EMS110: :ASCIZ @BUS TIMEOUT (Os TRAP) a 

74 077210 101 104 104 EMS111: [ASCIZ @ADDRESS @ 

75 077221 = 127, = 1102S 105s EMS112: -ASCII @WHEN READING/WRITING RH REGISTERS @ 
76077263 = 101 Ss «124K “ASC1Z @AT THE FOLLOWING @ 

77 077305 «= 122110 Ss 105.«sEMS113: [ASCIZ @THE SELECTED DEVICE IS @ 

78077335 = 116117, Ss 116 EMS114: CASCIZ @NONEXISTENT DEVICE a 

79077361 = 015. «O12 = 000s EMS115: CASCIZ <CR><LF> 
80 077366 124 110105. EMSI1G: -ASCIZ THE MASSBUS CONTROLLER @ 

81077414 106 101 111 EMS117: {ASCIZ @FAILED TO DETECT 

82 077436 8116 «6117 «= 124 EMS120: :ASCIZ @NOT AN RMOS/3/2 a 
83077457 108.«=—« 117, -—S«116-EMS121: “ASCIZ @CONTROL STATUS REGISTER 1. RMCSI, a 
84 077522 102 125 123 EMS122: .ASCIZ @BUS ADDRESS REGISTER, RMBA, a 
85 077557 «89103 «= 117, Ss 116 EMS123: <ASCIZ @CONTROL STATUS REGISTER 2, RMCS2, a 
86 077622 = 105, ss122-=Ss122«EMS124: [ASCIZ @ERROR REGISTER 1, RMERI, & 
87 077654 101 124 124 EMS125: .ASCIZ @ATTENTION SUMMARY REGISTER, RMAS, @ 
88 077717, = 115. = 101.2111 EMS126: LASCIZ @MAINTENANCE REGISTER #1, RMMR H, a 
89 077762 = 105 Ss 103 «S103. EMS127: <ASCIZ @ECC POSITION REGISTER, RMECI, 

100021 105. «=«103-«SS«103.-EMS130: :ASCIZ @ECC PATTERN REGISTER. (RMECS. “a 

31 100057 115,101, TT EMST31: -ASCIZ @MAINTENANCE REGISTER’ 2, RMMR2, @ 
92100117, 116 2117S s:124)«EMS132: <ASCIZ @NOT INITIALIZED BY @ 
93 10014 125 116 111 EMS133: <ASCIZ @UNIBUS INITIALIZE @ 
94 100166 103 117 116 EMS134: {ASCIZ @CONTROLLER CLEAR, I.E. BIT 5 OF a 
95 100230 122 110 - 057 EMS135: :ASCIZ @RH/RM ERROR CLEAR (RMCS1, BIT 14) a 
96 10027 104 122 111 €MS136: .ASCIZ @DRIVE CLEAR COMMAND @ 
97 100320 © 1041221 EMSI57: -ASCIZ @DRIVE STATUS REGISTER, RMDS 
98 10035 115 105. «104 EMS140: <ASCIZ @MEDIUM OFF LINE @ 
99 100376 = he 113, TI7 EMST41: -ASCIZ @ NOL” (RMDS, BIT 12) a 
100 100424 104 122 111 EMS142: (ASCIZ @DRIVE FAULT a 
10 100441 042» 104. «S126 EMSIG8: TASCIZ @DVC (RMERZ, BIT 7) a 
102 100467 =§ 125, S116 s«123sEMS144: LASCIZ @UNSAFE 
103 100477, 042,125,116 EMS145: LASCIZ a@*'UNS' (RMER1, BIT 14) a 
104 100526 123 110 117 EMS146: [ASCIZ @SHOULD BE SET 
105 100545 117 = 106 = 106-«EMS147: <ASCIZ @OFFSET MOD 
106 100562 = 040, 126=—s« 117 EMS150: <ASCIZ @ VOLUME VALID a 
107 100601 042 117 115 EMS151: <ASCIZ a@'OM" (RMDS, BIT 0) a 
108 100625 = 042, 126 = 126 -« EMS152: LASCIZ a''vv" (RMDS, BIT 6) a 
109 100651 120 101 103 €MS153: .ASCIZ @PACK ACK COMMAND a 
110 100673 116 «117 124 EMS154: SASCIZ @NOT SET BY @ 
111 100707 =s«s117, Ss 106-=— «106 EMS155: LASCIZ @OFFSET COMMAND a 
112 100727, 116 S117 124s EMS156: SASCIZ @NOT RESET BY @ 
113 100745 = 122,124 = :103.«EMS157: <ASCIZ @RTC COMMAND a 
114 100762 = 122,—Ss 11 = 120 EMS160: {ASCIZ @RIP COMMAND @ 
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115 100777 117 106 106 EMS161: .ASCIZ @OFFSET REGISTER ‘{RMOF) @ 

116 101027 EMS162: 3< > 

117 101027 104 125 122 EMS163: .ASCIZ @DURING RECALIBRATE @ 

118 101053 111 123 040 EMS164: .ASCI] @1S INTERMITTENT OR DRIVE DIDNT DROP ON @ 
119 101122 103 131 114 -ASCIZ @CYLINDER @ 

120 101134 125 116 105 EMS165: .ASCIZ @UNEXPECTED @ 

121 101150 122 105 103 EMS166: .ASCIZ @RECALIBRATE COMMAND @ 

122 101175 042 101 124 EMS167: .ASCIZ a@''ATA™ (RMDS, BIT15) @ 

123 101222 127 110 105 EMS170: .ASCIZ @WHEN READING REGISTER a 

124 101251 105 122 122 EMS171: .ASCIZ @ERROR REGISTER #2, RMER2, a 

125 101304 116 117 116 EMS172: .ASCIZ @NONRECOVERABLE @ 

126 101324 122 105 103 EMS173: .ASCIZ @RECOVERABLE @ 

127 101341 104 101 124 €MS174: .ASCIZ @DATA @ 

128 101347 104 125 122 EMS175: .ASCIZ @DURING WRITE COMMAND @ 

129 101375 042 117 120 EMS176: .ASCIZ @''OPE’’ (RMER2, BIT 13) a 

130 101424 114 116 040 EMS177: .ASCIZ @IN WRITE PROTECT @ 

131 101446 103 101 116 EMS200: .ASCIZ @CAN NOT S 

132 101463 104 111 101 EMS201: .ASCIZ @DIAGNOSTIC MODE ‘'DMD'’ (RMMR1, BIT 0) a 
133 101531 104 125 122 EMS202: .ASCIZ @DURING DIAGNOSTIC MODE a 

134 101561 111 116 103 EMS203: .ASCIZ @INCORRECT a 

135 101574 042 127 122 EMS204: .ASCIZ a''WRL'' (RMDS, BIT 11) a 

136 101622 105 130 105 EMS205: .ASCIZ @EXECUTED a 

137 101634 127 111 124 EMS206: .ASCIZ @WITH COMP ERROR SET a 

138 101661 042 107 117 EMS207: .ASCIZ a''GO"’ (RMCS1, BIT 0) a 

139 101706 127 122 111 EMS210: .ASCIZ @WRITING @ 

140 101717 127 101 123 EMS211: .ASCIZ @WAS RESET BY a 

141 101735 120 122 117 EMS212: .ASCIZ @PROGRAM INTERRUPT a 

142 101760 127 101 123 EMS213: .ASCIZ @WAS NOT GENERATED @ 

143 102003 123 105 105 EMS214: .ASCIZ @SEEK COMMAND a 

144 102021 120 122 117 EMS215: .ASCIZ @PROGRAM TIMEOUT a 

145 102042 104 125 122 -EMS216: .ASCIZ @DURING LOOK AHEAD TEST a 

146 102072 114 117 117 EMS217: .ASCIZ @LOOK AHEAD REGISIER,RMLA, a 

147 102125 123 105 101 EMS220: .ASCIZ @SEARCH COMMAND @ 

148 102145 102 101 104 EMS221: .ASCIZ @BAD SECTOR ERROR ‘'BSE’’ (RMER2, BIT 15) a 
149 102215 101 040 104 EMS222: .ASCIZ @A DATA TRANSFER COMMAND @ 

150 102246 110 105 101 EMS223: .ASCIZ @HEADER COMPARE INHIBIT ‘'HCI'' (RMOF, BIT 10) a 
2 102325 116 117 116 EMS224: .ASCIZ @NONEXISTENT MEMORY ''NEM'’ (RMCS2, BIT 11) a 


E 6 
CZRMMAQ RMO5S/3/2 FCTNL TST 1 MACRO V03.01 11-APR-80 13:04:53 PAGE 45 
ERROR MESSAGE STRINGS SEQ 0275 


1 102375 105 130 120 €EH1: -ASCIZ @EXPCTD RECEVDA 

2 102414 102 125 123 EH110: .ASCIZ @BUSADRA 

; 102423 040 122 115. EH111: .ASCIZ @ RMCS2  RMCSIa 

5 102442 122 105 103 EH114: .ASCIZ @RECEVD SNGPRT DULPRTA@ 

6 102471 105 130 120 EH223: .ASCIZ @EXPCTD RECEVD DATA@ 

7 102517 198 130 120 EH256: .ASCI] @EXPCTD RECEVD RGSTRA<CRLF> 

§ 102545 “12 124 101 -ASCIZ @STATUS STATUS INDEXa 

10 102573 107 104 101 EH336: .ASCIZ @GDADRS GDDATA BDADRS BDDATAa 

1 gest 166 ite 193 EH337: ASCH SRACSe STATUS FAILING BATABCCALE> 

e <CRLF OD 

13 102730 105 130 120 -ASCIZ @EXPCTO--RECTEVK ““BYT"""ABRESSa 

15 102767 122 115 105 €H344: .ASCI] @RMER1 STATUS HEADER FAILING@<CRLF> 
16 103027 137 137 137 -ASCI1 a * WORD BIT@<CRLF> 
17 103065 105 130 120 -ASCIZ OEXPCTO”-RECEVB NUMBER POSITONA 

18 103125 105 130 120 EH353: .ASCII] @EXPCTD RECEVDa<CRLF> 
4 103144 040 122 115 -ASCIZ @ RMLA RMLA RMOF @ 
21 103173 040 122 115 STSH1: .ASCII] @ RMCS1 RMCS2  RMDS RMER1 RMER2Z@ 
22 103240 040 040 040 -ASCIZ @ RMASA 
23 103250 040 122 115 STSH2: . ASCII] @ RMWC RMBA RMDA RMOF RMDCa 
24 103315 040 040 040 eASCIZ @ RMEC1 RMEC2Q 
25 103337 040 122 115 STSH3: .ASCIZ @ RMDA RMDC RMOF RMLA@ 

26 103375 040 122 115 STSH4 ASCI1Z @ RMMR1 = RMMR2 ~~ RMDT RMSNa 
7 EVEN 
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ERROR MESSAGE STRINGS SEQ 0276 


103434 001140 001142 000000 €ED1 -WORD $GDDAT,$BDDAT,O 
103442 001276 000000 ED110: .WORD $BASE, 

103446 001174 001176 000000 ED111: .WORD STMPO,STMP1,0 
ED 
ED 


103454 001362 001176 001200 4: .WORD RMDT1,$TMP1,$TMP2,0 
103464 001140 001142 001174 3: WORD $GDDAT ,$BDDAT,$TMPO,0 


103474 001134 001140 001136 £D336: .WORD SGDADR,$GDDAT,SBDADR,$BDDAT,0 


103506 001140 001142 001174 £€D337: .WORD $GDDAT,$BDDAT,STMPO,STMP1,0 
103520 001140 001142 001442 €D353: .WORD $GDDAT,SBDDAT,RMOFO,0 


103530 001334 001344 001346 STSD1: .WORD RMCS11,RMCS21,RMDS1,RMERII ,RMERZ] ,RMASI ,0 
103546 001336 001340 001342 STSD2: .WORD RMWC1,RMBAI,RMDAI ,RMOF],RMDC],RMECTI 
103562 001402 000000 «WORD RMEC21,0 

103566 001342 001370 001366 STSD3: .WORD RMDAI,RMDCI,RMOFI,RMLAI ,0 

103600 001360 001374 001362 STSD4: <WORD  RMMRI{,RMMR2],RMDTI,RMSNI ,0 
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SEQ 0277 
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ERROR MESSAGE STRINGS SEQ 0278 

1 103640 BUFFER: 

2 103640 BUFONE: .BLKW 258. 

; 104644 BUFTWO: .BLKW 258. 

; 103640 . =BUFFER 

7 103640 HELP: 

8 103640 200 eASCII <CRLF> 

9 103641 200 eASCII = <CRLFOD 

10 103642 114 111 123. .ASCI1 @LIST OF TESTS@<CRLF> 

11 103660 055 055 035 .ASCI] Qeeeeeoeecccce <CRLF> 

12 103676 124 061 011 .ASCI] aT] CONTROLLER ACCESS TEST@<CRLF> 
13 103730 124 062 011 .ASCII ate DEVICE AVAILABLE TEST@<CRLF> 
14 103761 124 063 011 .ASCII aT3 DRIVE TYPE TEST@<CRLF> 

15 104004 124 064 Q11 .ASCII aT4 UNIBUS INITIALIZE TEST@<CRLF> 
16 104036 124 065 011 .ASCII aT5 CONTROLLER CLEAR TEST@<CRLF> 
17 104067 124 066 011 .ASCII aT6 ERROR CLEAR TEST@<CRLF> 

18 104113 124 067 011 .ASCII at? DRIVE STATUS TEST@<CRLF> 

19 104140 124 061 060 .ASCII aT10 PRIMARY/SECONDARY ERROR TEST@<CRLF > 
20 104201 124 061 061 SCI] ati) DIAGNOSTIC MODE TEST@<CRLF> 
21 104232 124 061 062 .ASCII aTi2 PACK ACKNOWLEDGE TEST@<CRLF> 
22 104264 124 061 063 .ASCII aT13 RECALIBRATE TEST@<CRLF> 
23 104311 124 061 064 .ASCII aTl4 ABORT RECALIBRATE TEST@<CRiF> 
24 104344 124 061 065 .ASCII aT15 IVC RECALIBRATE TEST@<CRLF> 
25 104375 124 061 066 .ASCI1 aTl6 1AE RECALIBRATE TEST@<CRLF> 
26 104426 124 061 067 .ASCII] aT? RECALIBRATE AT OFFSET@<CRLF> 
27 104460 124 062 060 .ASCII aT20 DRIVE CLEAR TEST@<CRLF> 
28 104505 124 062 061 .ASCII aT21 NOP TEST@<CRLF> 
29 104522 124 062 062 .ASCII at22 OFFSET TEST@<CRLF> 
30 104542 124 062 063 .ASCI1 at23 GO/ATA TEST@<CRLF> 
31 104562 124 062 064 .ASCI] aT24 WRITE ATA TEST@<CRLF> 
32 104605 124 062 065 .ASCII at25 ERROR/ATA TEST@<CRLF> 
33 104630 124 062 066 .ASCIi @126. PROGRAM INTERRUPT TEST@<CRLF> 
34 104663 124 062 067 .ASCI1 ate? INHIBIT INTERRUPT TEST@<CRLF> 
35 104716 124 063 060 .ASCI] a130 RETURN TO CENTERLINE TEST@<CRLF> 
36 104754 124 063 061 .ASCI] a731 READ IN PRESET TEST@<CRLF> 
37 1050 124 063 062 .ASCII aT32 RMDC CLEAR OFFSET TEST@<CRLF> 
38 105037 124 063 063 .ASCII a133 ILLEGAL FUNCTION TEST@<CRLF> 
39 105071 124 063 064 .ASCI] a134 INVALID COMMAND TEST@<CRLF > 
40 105122 124 063 065 .ASCII a135 INVALID ADDRESS ERROR TEST@<CRLF> 
41 105161 124 063 066 .ASCI] a136 WRITE LOCK ERROR TEST@<CRLF> 
42 105215 124 063 067 .ASCII a137 ERROR ABORT TESTS@<CRLF> 
43 105241 124 064 060 .ASCII a140 RMR TEST@<CRLF> 
44, 105256 124 064 061 .ASCI] aT4! PARITY ERROR TEST@<CRLF> 
45 105304 124 064 062 .ASCI] aT42 ILLEGAL REGISTER TEST@<CRLF> 
46 105336 124 064 063 .ASCI] 143 SEEK LAST CYLINDER@<CRLF> 
47 105365 124 064 064 .ASCII aT44 SEEK FIRST CYLINDER@<CRLF> 
48 105415 124 064 065 .ASCI] aT45 SEEK PRIME CYLINDERS@<CRLF > 
49 105446 124 064 066 .ASCI] a146 SEEK ZERO DIFFERENCE@<CRLF > 
50 105477 124 064 067 .ASCI] a147 SEEK MAXIMUM DIFFERENCE FORWARD@<CRLF > 
51 105543 124 065 060 .ASCII a150 SEEK ADJACENT FORWARD@<CRLF > 
52 105575 124 065 061 .ASCI] a5} SEEK ADJACENT REVERSE@<CRLF > 
53 105627 124 065 062 .ASCI] aT52 SEEK INVALID SECTOR@<CRLF> 

54 105657 124 065 063 .ASCI] a153 SEEK INVALID TRACK@<CRLF> 
55 105706 124 065 064 .ASCI] a154 SEEK INVALID CYLINDER@<CRLF > 
56 105740 124 065 065 .ASCI] a155 IvC SEEK TEST@<CRLF> 

57 105762 124 065 066 .ASCI] a156 ABORT SEEK TEST@<CRLF> 
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ERROR MESSAGE STRINGS SEQ 0279 
58 106006 124 065 067 .ASCII aT57 SEEK AT OFFSET@<CRLF> 
59 106031 124 066 060 .ASCI] aT60 LOOK AHEAD TEST@<CRLF> 
60 106055 124 066 061 .ASCI1 aT61 SEARCH ON CYLINDER@<CRLF> 
61 106104 124 066 062 .ASCII at6¢ SEARCH OFF CYLINDER@<CRLF> 
62 106134 124 066 0635 .ASCII aT6 SEARCH INVALID SECTOR@<CRLF> 
63 106166 124 066 064 .ASCI] aT164 SEARCH INVALID TRACK@<CRLF> 
64 106217 124 046 065 .ASCI] aT65 SEARCH INVALID CYLINDER@<CRLF> 
65 106253 124 066 066 .ASCII a166 IVC .SEARCH TEST@<CRLF> 
66 106277 124 066 067 .ASCII aT67 ABORT SEARCH TEST@<CRLF> 
67 106325 124 067 060 .ASCII aT70 SEARCH AT OFFSET@<CRLF> 
68 106352 124 067 061 .ASCI] aT71 HEAD ALIGNMENT SEEK@<CRLF> 
69 106402 200 -ASCI1 <CRLF> 
70 106403 117 120 105 .ASCI1 @OPERATIONAL SWITCH SETTINGS@<CRLF> 
71 106437 055 055 055 ASC] ] Qenen nnn n nnn nnn wenn nnn enne <CRLF > 
72 106473 123 127 111. .ASCII = @SWITCH USEACCRLF> 
73 106510 055 055 055 .ASCI] Oeee--- ewww www ewww ennnnne <CRLF> 
74 106545 040 040 061 .ASCI] a 15 HALT ON ERROR@<CRLF > 
75 106571 040 040 061 .ASCI] OF 14 LOOP ON TEST@<CRLF> 
76 106614 40 40 061 .ASCI] a 13 INHIBIT ERROR TYPEOUTS@<CRLF> 
77 106651 040 040 061 .ASCI] a 12 a<CRLF> 
78 106660 040 40 061 .ASCI] @ 11 INHIBIT ITERATIONS@<CRLF> 
79 1 11 040 040 061 .ASCII a 10 BELL ON ERROR@<CRLF> 
80 106735 040 040 040 .ASCI] 3 9 baa = ERROR@<CRLF > 
81 106761 040 040 040 .ASCI]1 O&O 8 LOOP ON TEST IN SWR<7:0>@<CRLF> 
82 107020 040 040 040 .ASC]11 a 7 bof oenecari> 
83 107034 040 040 040 .ASCI] 8 6 TN64Q<CRLF > 
84 107047 040 040 040 .ASCI] OF 5 TN32a<CRLF > 
85 107062 040 040 040 .ASCI] 8 4&4 ™N16a<CRLF > 
86 107075 040 040 040 .ASCII1 a 3 TNBA<CRLF > 
87 107107 040 040 040 .ASCII] a 2 TNG@<CRLF > 
88 107121 040 040 040 .ASCI] a 1 TN2a<CRLF > 
89 107133 040 040 040 .ASCIZ a O TN1Q<CRLF > 


91 000200 ~ END 200 
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SYMBOL TABLE SEQ 0282 
EMT4O =070140 F4 = 000040 LS = 000004 PR = 000100 RMDS = 000012 
EMT41 070146 GET 044154 LSC = =_- 004000 PR = 000140 RMDSI 001346 
EMTS 070156 GETBUF 001334 LST = 000002 PR4 = 000200 RMDSO 8 001422 
EMTS 070170 GETINX 001514 LSTRK 001332 PRS = 000240 RMDT = 000026 
EMT44 070200 GETSTS 044070 MCLK = 004000 PR6 = 000300 RMDTI 001362 
EMT45 070210 GO = 000001 MCPE = 020000 PR7 == 000340 RMDT 001436 
EMT46 = 0070220 GTSWR = 104407 MDF = 000100 S = 177776 RMEC1 = 000044 
EMT47 = 07023 CE = 000200 MDPE = 000400 PSEL = 002000 RMEC1] 001400 
EMTS 067632 HC] = 002000 = 000004 PSWw == 177776 RMECIO 001454 
EMT50 §=©.070236 HCRC = 000400 MIXED 067156 PUT 044424 RMEC2 = 000046 
EMT51 070246 HELP 103640 MOC = 000400 PUTBUF 001410 RMEC21 001402 
EMTS2 070260 HT = 000011 MOH = 020000 PUTINX 001543 RMEC20 001456 
EM153S 070276 IAE = 002000 MOL = 010000 PWRVEC= 000024 RMER1 = 000014 
EMT54 070314 IDXMSK= 000077 MRD = 002000 QUES 066211 RMER1] 001350 
EMT55 070324 = 000100 S = 000040 RCLSTS 055322 RMERIO 001424 
EMT56 §=©070336 F = 000001 C = 000002 RD = 000070 RMER2 = 000042 
EMTS? 070354 ILFO2 = 000002 MSDRVS 066723 RDCHR = 104411 RMER2] 001376 
EMT6 067640 ILF24 = 000024 E = 100000 RDLIN = 104412 RMERZO 001452 
EMT60 070364 ILF26 = 000026 MSER = 000200 RDOCT = 104413 RMHR = 000036 
EMT61 070402 ILF30 = 000030 MSGDRV 066737 RDY = 000200 RMHRI = =001372 
EMT62 070422 ILF32 = 000032 MSHELP 066220 READY 007756 RMHRO 8 001446 
EMT63 070436 ILF34 = 000034 MUR = 001000 RECAL = 000006 RMLA = 000020 
EMT64 070440 ILF36 = 000036 MWD = 000010 RESREG= 10441 RMLAI 001354 
EMT65 7046 ILF40 = 000040 MWP == 000010 RESVEC= 000010 RMLAO 3 001430 
EMT66 §=©070500 ILF42 = 000042 M = 001000 REX = 010000 RMMR1 = 000024 
| EMT67 «=©070512 ILF44 = 000044 NDTMSK= 115760 = 040000 RMMRII 001360 
EMT? 067646 ILF46 = 000046 NED = 010000 RGDTPT 067156 RMMRIO 001434 
EMT70 070524 ILF54 = 000054 NEM = 004000 H = 000072 RMMR2 = 000040 
EMT71 0705 ILF56 = 000056 NOP = 000000 IP = 000020 RMMR21 001374 
EMT72 070544 ILF64 = 000064 NOTAVL 067002 RLEASE= 000012 RMMR20 001450 
EMT735 070562 ILF66 = 000066 NOTPRS 066765 RMAS_ = 000016 RMOF = 000032 
EMT74 070600 ILF74 = 000074 NSA = 100000 RMASI 001352 RMOFI 001366 
EMT75 070610 ILF76 = 000076 occ § = 100000 RMASO 3001426 RMOFO 001442 
EMT76 §=©—.070630 ILR_ = 000002 OFD = 000200 RMBA_ = 000004 RMR = 000004 
EMT77 070640 ILRG5O= 000050 OFFLIN 067021 RMBAE = 000050 RMSN_ = 000030 
ENRGDT 067604 ILRGS2= 000052 OFFSET= 000014 RMBAEI] 001404 RMSNI 001364 
EQUALS 06620 ILRG54= 000054 = 000001 RMBAEO 001460 RMSNO 3 001440 
ERR = 0400 ILRG56= 000056 ONES 067216 RMBAI 001340 RMWC = 000002 
ERRNMB 043104 ILRG60= 000060 ONLINE 067033 RMBAO 3 001414 RMWC] 001336 
ERROR = 104000 ILRG62= 000062 = 020000 RMCS1 = 000000 RMWCO 8=—001412 
ERRTYP 042346 ILRG64= 000064 OP] = 020000 RMCS1] 001334 RQA = 100000 
ERRVEC= 000004 ILRG66= 000066 R = 000200 CS10 001410 RQB = 040000 
RTYOO 043112 ILRG70= 000070 PACACK= 000022 RMCS2 = 000010 RTC = 000016 
ERTYO1 043120 ILRG72= 000072 PAKACK= 000022 RMCS21 001344 R6 =%000006 
| ERTYO2 043130 ILRG74= 000074 PAR = 000010 RMCS20 001420 R?7 =%000007 
ERTYOS 043137 ILRG76= 000076 PAT = 000020 RMCS3 = 000052 SADMSK= 000377 
RTYOG 9 043145 1OTVEC= 000020 PDA = 000400 RMCS31 001406 SAVREG= 104414 
SRC = 004000 IPCKO = 000001 PGE = 002000 RMCS30 001462 SA1 = 000001 
ER = 000020 IPCK1 = 000002 PGM = 001000 RMDA_ = 000006 SA16 = 000020 
IND = 0 IPCK2 = 000004 PHA = 000200 RMDAI] 001342 SA2 = 000002 
M116 = 010000 IPCK3 = 000010 PIP = 020000 RMDAO 3 001416 SA4 = =_: 000004 
NCDTB 067046 IR = 000100 PIRQ = 177772 = 000022 SAB = 000010 
NCMSK= 000077 IvC = 010000 PIRQVE= 000240 RMDB] 001356 SC = 100000 
0 = 000002 LBC =. =-_: 002000 LFS = 002000 RMDBO 3 001432 SCHSTS 057666 
1 = 000004 LBT == 002000 PRIERR 045152 = 000034 SCOPE = 000004 
2 = 000010 LF = 000012 PRO = 000000 RMDCL 001370 SCTMSK= 003700 
3 = 000020 LODEV 066745 PRI = = 000040 RMDCO 83=—: 001444 scO) = =_: 000100 
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SYMBOL SEQ 0283 
$C1 = 000200 TAGADR= 001114 TST5 032172 $BIN 062200 SITEMB 001130 
= 000400 P = 040000 18183 032610 $CDW1 001302 SLF 001220 
| $C = 001000 TA1 == 000400 TST54 = 033236 $CDW2 001304 $LFLG 066177 
~$C4 == 002000 TAI6 == 010000 TST55 = 033654 SCHARC 063204 $LPADR 001122 
| SEARCH= 000030 TA2 == 001000 TST56 «= 034214 SCKSWR 064406 S$LPERR 001124 
| SECERR 046004 TAS = =_: 002000 TST57 =©034556 SCMTAG 001114 SMADR1 001254 
| SEEK = 000004 TAB = 004000 TST6 012076 CM3 = 000000 SMADR2 001260 
| SEKSTS 052270 TBITVE= 000014 TST60 =035110 $CM4 = 000005 SMADR3 001264 
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40-95 


40-183 


40-195 


40-67 


40-96 


40-89 
40-103 


44-938 
44-94" 


40-188 
40-205 


40-194 


40-223 


40-68 


40-66 
40-179 
40-205 


40-231 


40-98 


40-90 
40-104 


40-193 
44-1018 


40-195 


44-1088 


40-69 


40-126 


40-91 
40-105 


40-222 


40-223 


40-70 


SEQ 0508 


40-70 


44-858 


40-92 
4C-106 


44-998 


40-234 


40-71 


EMS166 40-122 


40-142 


44-1218 


SEQ 0309 
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CROSS REFERENCE TABLE (CREF v01-05 ) SEQ 0310 
EMS167 40-8 40-49 40-68 = 40122. 40-123 40-124 40-168 = 460-169 460170 40-175 40-235 e128 
EMSI17 40-1460 44-170 
EMS170 40-9 44-1238 
/EMS171 40-57 40-105. 40-125 40-126 44-1240 
EMS172 40-215 44-1258 
EMS173 40-214 44-1268 
/EMS174 40-216 44-1278 
| EMSI75 40-216 40-217 40-218 40-219 44-1284 
| EMS176 44-1298 
| EMSI77 40-127 44-1308 


EMS2 40-4 40-5 44-48 
enoee 40-34 40-58 40-110 8940-118 =940-119 = 40-120 = 40-121 940-212 §=— 40-232) 40-238 = 44-18 4 


EMS202 40-129 40-130 40-131 40-132 40-133 
EMS203 40-129 40-130 40-131 40-132 40-133 

| EMS205 40-55 40-142 40-179 §=40-233 = 44-1364 
EMS206 40-55 40-142 40-170 40-179 40-233 

EMS207 40-168 40-170 44-1388 

EMS210 40-169 40-170 40-173 44-139" 


EMS212 40-171 40-172 44-1418 


40-134 40-136 40-180 
175. 40-176 


338 
40-174 40- 37 


44-1 
40-2 44-1348 


44-1378 


EMS221 40-231 40-238 44-1484 


EMS26 40-20 40-116 40-173 44-248 
EMS27 40-16 40-19 40-20 40-115 40-116 40-173 944-258 


EMSS 
EMS30 4640-17 40-18 40-21 40-22 40-23 40-24 40-25 40-26 40-2 
40-33 40-43 40-129 40-1350 40-131 40-132 40-133 40-144 40-1 


EMS31 = 40-21 40-146 40-207 40-208 44-278 


7 40-28 40-29 40-30 40-31 40-32 
45 40-146 40-147 40-174 40-175 40-176 


40-24 40-225 40-226 40-227 44-308 
40-26 40-213 40-214 40-215 44-320 


EMS41 40-29 40-190 40-191 44-558 


r-- 


EMSG4 «40-32 40-211 


40-230 


44-388 


SEQ 0311 


— CZRMMAO RMOS/3/2 FCTNL TST 1 
CROSS REFERENCE TABLE (CREF vO1-05 ) 


m 
x 
“” 
uw 
uw 


m 
=z 
n“ 
o 
* 


Mmmm mMmMmMmmMmmnnn 
Fuslean Seah 


Fun-O NOUS wh— 


EM 
EM 


40-210 


0- 
40-48 


40-55 
40-142 


40-788 


40-229 
40-120 
40-45 
44-418 
44-78 
40-64 


40-70 
40-143 


40-39 
40-184 
40-207 


40-229 


40-190 
40-41 


40-148 


44-398 
40-145 
40-52 


40-70 


40-130 
40-148 


40-40 
40-186 
40-216 


40-177 
40-460 
40-132 


40-139 
40-149 


40-44 
40-187 
40-218 
40-63 
40-194 


40-208 
44-498 


40-145 


40-47 
40-66 
40-195 


40-185 
40-61 


40-67 


40-195 
40-209 


40-199 
40-66 


40-139 


4 
44-648 


. 9 
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40-189 


44-408 
40-118 
40-181 


40-221 
40-201 


40-62 

40-193 
44-458 
40-144 


40-198 
40-213 


40-147 


40-185 


44-434 
40-228 


40-64 
40-194 


40-178 


40-199 
40-214 


40-52 
40-139 
40-63 
44-608 
40-234 
44-638 


40-186 
40-189 


40-229 


40-65 
40-195 


40-182 


40-200 
40-215 


40-54 
40-182 


40-108 
40-235 


40-187 


40-200 


40-230 


40-73 
40-200 


40-183 


40-201 
40-220 


44-578 
40-189 


40-109 
44-618 


40-188 
40-201 
40-231 


40-140 
40-202 


40-194 


40-202 
40-221 


40-194 


40-134 


SEQ 0312 


40-192 
40-221 
40-233 


40-141 
40-203 


40-195 


40-203 
40-222 


40-205 


40-155 


EMT115 


7-237 


40-798 


SEQ 0313 
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CROSS REFERENCE TABLE (CREF vO1-05 ) SEQ 0314 
EMT116 7-240 40-808 
EMT117 7-243 40-818 
EMT12, 7-31 40-120 
EMT120 7-246 40-828 
EMT121 7-249 40-838 
EMT122 7-252 40-Baa 
EMT123 7-255 40-850 
EMT124 7-258 40-86 

EMTI25 7-261 40-878 

| EMT126 7-266 40-888 

EMT127 7-267 40-89¢ 

EMTI3.§ -7=34 «40-134 
EMT130 7-270 40-908 
EMT131 7-273 40-91" 
EMT132 7-276 40-92M 
EMT133 7-279 40-934 
EMT134 7-282 40-94e 


EMT150 7-318 40-106" 
EMT151 7-321 40-107 
EMT152 7-324 40-1084 
EMT153 7-327 40-109# 
EMT154 7-330 40-1108 
EMT155 7-333 40-1114 
EMT156 «7336401128 
/EMT157 7-339 «40-1138 
EMT16. «72-43 G0-168 
/EMT160 7-342 40-1140 
EMT161 7-345 9 G0-115# 
EMT162 7-348 40-1168 
EMT163 40-117# 
EMT164 7-355 40-1184 
EMT165 «7-358 = 40-1198 
EMT166 «7-361 40-1208 
EMT167 7-364 40-1218 
EMT17 7-46 0-178 
EMT170 40-122 


EMT171 7-370 40-1238 
EMT172) 7-373 40-1248 
EMT173 7-376 «= 40-1258 
EMT174 7-379 40-1268 
EMT175 7-382 40-1278 
EMT176 «7-385 40-1288 
EMT177 9=7-388 840-1298 


EMT2 7-7 40-48 
SEQ 0315 
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CROSS REFERENCE TABLE (CREF v01-05 ) SEQ 0316 


EMT20 7-49 40-188 
EMT200 7-391 40-1308 


| EMT223 7-448 40-1498 


EMT25 7-58 40-214 


/EMT24. 2-61 40-228 


/EMT246 7-505 40-1684 


EMT252 7-517 40-1728 
EMT253 7-520 40-173# 
EMT254 7-523 40-1748 
EMT255 7-526 40-175# 
EMT256 7-529 40-1768 
EMT257 97-532 0 =—40-1778 
EMT26 7-67 40-248 

EMT260 7-535 40-1788 


EM1261 7-538 40-1798 
SEQ 0317 


CZRMMAO RMOS/3/2 FCTNL TST 1 
CROSS REFERENCE TABLE (CREF v01-05 ) 


EMT 262 


EMT 342 


NNMOLONEO NWONS 


Dee 
NS PANAMA AANA 


i 
uw 
oO 
a 


40-1804 


40-2278 
40-2284 


40-2248 


. + 
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EMT343 7-697 «640-2298 
SEQ 0319 
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CROSS REFERENCE TABLE (CREF v01-05 ) SEQ 0320 
EMT344 7-700 40-230" 
EMT3Q5 «= 7=703 «40-2318 
EMT346 © 7-706 + 402328 
EMT347 7-709 40-2338 
EMT35 = 7-88. 40-318 
EMT350 7-712 40234" 
EMT351 7-715 40=235# 
EMT352 7-718 + 40-2368 
€MT353 2-721 = 40-2370 
| EMT354 7-724 40-238 
EMT36.«— 7-91. 40=328 
EMT37 «7-94 40-334 
EMT4 = 7=13 G0=68 
EMT4O «= 7-97 40-344 
EMT41 7-100 40-354 
EMT42 = 7-103 40-36M 
EMT43 = 7-106 40-378 
EMT44 7-109 40-38" 
EMT4S = ?=112 40-398 
EMT46 = 7-115 40-408 
EMT47? = 7-118 40=418 
EMTS = ?=16—40=74 
EMT50 = ?=121 40-428 
EMT51 = 7-126 = 40=438 
EMT52 9 2=127 40-448 
EMT53 «= 7131 40-45¢ 
EMT54 7-134 40-464 
EMT5S = 2-137 40-478 
EMTS6 7-140 40-484 


EMT62 7-155 40-524 
EMT64 7-161 40-544 


2-<25 22-84 22-86 22-102 22-156 
4-133 


ERRVEC 4-4838 -19 9-198 9-198 9-218 9-222 812-5 12-6 l2-7« 12-88 12-19# 129208 12-242 12-258 


. 
12-38 12-39 W240" 12-41" = 12-45" = 12-46" = 12"57# = 12-58* = 12-552) 12*=53)12==54" 12-255" 12-10" 12=>11e 
SEQ 0321 


SEQ 0322 
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CROSS REFERENCE TABLE (CREF v01-05 ) 


CZRMMAO RMOS/3/2 FCTNL TST 1 





. z= 22 = me Be 2a 2 RR 2222 & RS me te 

NAANK K— NDA OUDNNA — ODUNOONOMNNAOR MOA SOs rr OD OW O 
NOMMNE OK MS ODONS OF — TO-DO SOS OO SOR OMFS ODOM O 
NM TT TOWN OOO ORK DODO AADA eV VV HAA AAO Orne: 
ee ee ee De ee ee ee ee ee ee ee ee ee ee eee 
tata te las lala ta ia ta la la la la lat ia la lav iatia la iat iatiat ia iat iatiatiatiatiatiatiatiat iat lala lat iat iat lat) 


eee ee re re ee el eh ee el eh ed ed eh ee eh ee ed ee oh eh ae ane ae oe ae 


NOAA KUNI OT UDIAWMO 00D FOOMOM SF AORMOMO SOUR. ODOM 
TeOLETTE CR OBRTIVITGESTTTTTT **eVVVHNHAAAA 


22 22 B22 2 22 Be Be BRE BR BBVVVEBV BA BBN BB 


NOXAXKDRA KUT XHFUOOMN OOO SF ODMO F FRAN FMNVODNRN OO 
OTMST ODOM ST OCO— TOD RK FORK ROSIN OR TR OMIM ODOM OO 
NUM ST TTMOMMOIN OOOO ORR COCA AO «+ tere V VY HH AA AA AOR Oe: 
Le ee ee ee ee eee 
NNO CUCU CUCU CU CUCU CUCU CU CUCUCU CUCU CUCUCUCUCUCUCUCUCUCUCUCUCUCUCUCUCUCUCUCY 


2 22 22 2 22 22 22 22 22 22 BR BR BR BB 


WOO nA AWN SF TF FO ORME O00 OF COCO P1060 FF KN FINO ODIO Oe or or 
OTT ODOM ST ODO TF ODO SF OOR. OMIM 6- OR FR OCUM ODOM OO 
iewettene eee Oe eee eee ht ee eeVVHMHAAA > , ; 


ee ee ee ee ee ee ee De ee ee ee ee eee ee 


LLL OO OO 


ee ee ee De ee eee ee eee ee ee ee ee eee 
NCC CUCUCU CUCU CUCuCuCCUCUCUCUCUCUCUCUCUCUCUCUCUCUCUCUCuCUCUCUCuCuCuCuCuCuCS 


LL EE OO 


omm~—as 
eo eee Py td tt a 
Le ee ee ee ee ee ee ee eee ee eee eee ee 
NINN CUO CU CUCU CUCICUCUCUCUCUCUCU CUCU CUCUCUCUCUCUCUCUCUCUCUCUCUCUCUCUCUSUCUCUC 


LLL OC OC Ore 


eee erereeeeeepeeeeeepeeereeeeeeeenea 
ncNccucucucuCiCucCucucuCcuCCuCuCucuCuCuCuCuCCuCuCuCuCuCuCuCCuCCCCCN 


ELL OO OO OO Ce 


22 22 22 2= B22 B22 22 22 B22 BRVBVVEVi 22 B82 BF 
DO— OWN — DNAS TF OVMK NF OOF OMOK—F. SOMME FMOTOM—UMOOCO 


oe me =2= 22 22 282 
TOF FMOOKr OD OMM 

MINOR. Om FORA — UMN. OUR. ODO — TORT 
HVAT TT TANNIN OOO OR-FR. DCO «+ os eo 


<69 
-<94 


DAMN OMN TF OD ODOR NKR F OMIMITOR OOM Ov OvrOo-DOO oO 
A= NUUNNB Be TARA CUM. ONIN OO — FRR TF OM OMN OO — MOD 
HVS TT TMAMNMNN OOO OR.RR. DWDMDOAADM ss eo VV V HH AAA AGO Oe 
‘seep eeeeepeepepespspepeepseseeespespeseseeepeeeeseeeens 
eucucucucucucecucucucucucucucucuccuccucucucusCucucucucucucuuCuCuCuCucu 
LLL LL LL SC 
22 22 282 22 22 22 22 22 22222 282 2822 22 
DOOAMA OMIM FOOD TOR. OR. FK MT DITANOON— OO ONT OO DODO 
—ONUR AR De FNRAK— NNR ONMNOK Be TKR FT ODMOMNOD— MN 
Se NMIM ST TF TMMNWIN OOO ORR. BR. DOCCDOAO ss eo VV VM HAA A AGO O- eo: 
‘soeespeepeeescreesespeseeepeevpespeersceespeeseeseeeepeeeesenes 
cucueucucucucucucucucucuccucucuccuccccucurucucunccucucucuceeneune 


2 22 22 2222 22 22 & 22 22 22 22 282 
NOPAAAOK-—MTDOOFONOKR KKM ted pgd ob pete + rome btm hb ee > | 
AARAAAAADOV OR NR OK MNOA — — AUNABUNOK— OK TR TT OCOMOMNODO— WN 
vat vat vat vat wa OC ae a WD DOO 
saroeucucucucucucucueucucucuic cu cuCeunCC CTC ecunnncncnnnune 
ue el ee ee ee el el ee ee el ee ee ee ee ee ee 
22 22 22 = 22 2822 22 22 8&2 2222 22 B82 8 
SONORMNKRAOK— MN onNw aS a Se ESS TO OMT ODOUNS 
TTPettitt ee TTT BB DODO oo eo eeV VV UH AA AAO OOO 
oteeeeetegpevete i #eepeprseeceeeeseee te 6 tt 6 8 8 6 6 8 
NNN CC CUCU CCC CU CUCU CUCU CCU CUCU CC CCC CNC cu 
LLL 


12-2968 


12-2968 


12-298 


12-2988 


12-7988 


12-209 


N 9 
12-0094 12-0094 12-420 


12-a208 


12-a208 


12-824 


12-0244 12-0248 
SEQ 0323 


SEQ 0324 
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CROSS REFERENCE TABLE (CREF v01-05 ) 
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